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¡¡MENUDO CAMBIO!! 


Ttáenostu 



Renuévate con 
INVESTRONICA. 


y llévate un 
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SPECTRUM PLUS 


Apúntate a lo más 
nuevo. 



Ahora INVESTRONICA te da 
la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS. 

Sólo tendrás que entregarnos tu 
ZX SPECTRUM... 

...lo demás será visto y no visto, 
el Spectrum Plus ya es tuyo, 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última. 


(') 18.000 pls si es de 16 K 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso. Podrás disfrutar de 
un teclado profesional; 

17 teclas más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que ya tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 
el software y accesorios del 
spectrum. Además 
INVESTRONICA. al realizar el 
cambio, te do de nuevo 
6 meses de garantía, 
una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 

No te lo pienses... cámbiate a lo 
último, tienes las de ganar. 


Manda tu ZX Spectrum 
(sin cables, ni fuente de 
alimentación) a tu Servicio 
Técnico Oficia! 

(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (los gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts. (*) 



Dirígete a cualquiera de las delegaciones 



C/ Aribau, n. a 80, Piso 5. D 1P.° de Ronda, n a 82. 1 ° E C/ San Sotero, n.° 3 C/. Avda de la Libertad, n.° 6 

Telfs (93) 323 41 65 - 323 44 04 Telf. (958) 26 15 94 Telfs. 754 31 97 - 754 32 34 bloque 1 * Entl izq D. 

08036 BARCELONA 18006 GRANADA 28037 MADRID Telf (968) 23 18 34 

30009 MURCIA 

C/ Hermanas del Río 
Rodríguez, a° 7 bis 
Tel:(954) 36 17 08 
41009 SEVILLA 


C/ 19 de Julio, n.MO - 2° local 3 
Telf. (985) 21 88 95 
33002 OVIEDO 


C/. Universidad n Q 4 - 2 o 1A C/. Travesía de Viga, n.° 32, l.° Avda de Gasteiz, a° 19 A - l. n D C/. Afores, n.° 4 - 5. a D 

Telf (96) 352 48 82 Telf (986) 37 78 87 Telf (945> ZZ 52 05 Telf (976) 22 47 09 

46002 VALENCIA 6 V1G0 01008 VITORIA 50003 ZARAGOZA 





















Director: Simeón Cruz 
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ACTUALIDAD. Reflexión sobre los 
aspectos más significativos del mercado. 

LA OTRA CARA DEL LOGO. Porque 
no siempre es necesaria la tortuga. 

EL SPECTRUM HABLA 
CASTELLANO. Rutina en código 
máquina para traducir las palabras 
clave. _ 

SOFT A ID. AYUDA PARA ETIOPIA. 
Las casas de software se unen a la 

S.O.S. AQUI EL SPECTRUM. El 
ordenador, el intertace morse y... 
muchos amigos. 
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4m SPECTRUM 




LA LUZ DEL LAPIZ. Lápiz óptico 
Made in Spain con un completo 
programa de dibujo. 


22 


INTERFACE JOYSTICK. Montaje 
para conectar un joystick tipo Kempston. 


GUSANEZ. 




QL MAGAZINE. Procesador de textos 
QUTI.L, y un programa en código 
máquina para definir las teclas de 

PROGRAMAS. Arla, un juego gráfico 
de aventuras en castellano, y 
Circulación de fluidos. Diversión y 
aplicaciones. 



Sr 





Gusanez que nos ha p P 
próximo mes. 

Felices vacaciones. 
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LA OTRA CARA 

DEL LOGO 

Convendréis con nosotros que cuando aparece el 
vocablo Logo, ya sea en la cabecera de un artículo en 
una revista, en el enunciado de un libro, o 
sencillamente escucháis hablar de él nuestra mente 
automáticamente empieza a imaginar aquellas típicas 
figuras de la famosa tortuga tales como cuadrados, 
triángulos, casas y un sinfín de gráficos que puede 
realizar este oeaueño animalito. 



Q uizás se pierde de vísta la 
parte más potente e imagi¬ 
nativa de este lenguaje. 

-- como es, el procesamiento 

de listas, palabras y núme¬ 
ros. No debemos olvidar que el 
Logo, palabra que precisamente 
significa «palabra», emprendió su 
singladura a partir de procesos de 
listas y palabras. 

La reciente aparición del Logo 
en Castellano para el Spectrum 
nos permite, no sólo hablar del 
lenguaje, sino poder sentarnos a 
e v pcrimcnlar con él. 


Dado que de momento la docu¬ 
mentación que acompaña al pro¬ 
grama es un simple glosario de pri¬ 
mitivas (para los neófitos les reco¬ 
mendamos leer un artículo ante¬ 
rior sobre el Logo en TODOSPEC- 
TRIJM de Enero y Febrero), nos 
permitiremos aclarar algunos ele¬ 
mentos de la sintaxis en el uso de 
las variables mientras esperamos el 
manual de programación. 

Para otorgarle un valor a una va¬ 
riable se utiliza la primitiva ASIG¬ 
NA y la manera de hacerlo es: 
ASIGNA “nombre objeto, donde 


el nombre que le damos debe ir 
precedido por una cornil la (”) y si n 
dejar espacio alguno; y el objeto, es 
decir su valor o contenido, puede 
ser numérico, una palabra o una 
lista de palabras. 

Por ejemplo: 

ASIGNA “número 30. La variable 
de nombre “número vale 30. 

ASIGNA “animal “león. El conte¬ 
nido de la variable de nombre 
“animal es “león. 

ASIGNA “colores [rojo, verde, 
blanco, amarillo, azul, negro]. La 
















variable de nombre “colores con¬ 
tiene la lista rojo, verde, blanco, 
amarillo, azul y negro. 

Como veis la sintaxis correcta 
utiliza una comilla como identifi- 
cador de los nombres y los corche¬ 
tes cuando tenemos más de un ob¬ 
jeto. 

Si deseamos obtener el conteni¬ 
do de una variable, debemos escri¬ 
bir dos puntos (:) por delante del 
nombre y sin dejar espacio alguno. 
Por ejemplo: ESCRIBE :animal: y 
ei ordenador nos escribirá en la 
pantalla león, ya que es el conteni¬ 
do que le habíamos asignado. De 
igual manera ESCRIBE xolores 
nos escribirá en la pantalla la lista 
rojo verde blanco amarilloazul ne¬ 
gro. 

Las variables de este tipo se pue¬ 
den utilizar tanto dentro como fue¬ 
ra de un procedimiento y su valor 
será el de la última asignación 
dada. Veamos. 

PARA TRIANGULO 
REPITE 3 [AVANZA dado Gl- 
RADERECHA 120] 

FIN 

PARA CUADRADO 
REPITE 4 [AVANZA dado GI- 
RADERECHA 90] 

FIN 

Si ahora quisiéramos que la tor¬ 
tuga nos dibujara un triángulo o 
un cuadrado nos enviaría el men¬ 
saje “lado no tiene valor en 
TRIANGULO", ya que no le he¬ 
mos dado valor. 

Nos faltará pues hacer ASIGNA 
“lado 45 y podremos tener tanto 
un triángulo como un cuadrado de 
lado 45, 

Pero veamos qué pasa si cons¬ 
truimos el siguiente procedimien¬ 
to: 

PARA TRIANGUL02 
ASIGNA “lado 70 
REPITE 3 [AVANZA dado GI- 
RADERECHA 120] 

FIN 


Aunque de absurda utilidad en 
este caso, ya que podríamos haber¬ 
le puesto un valor al avance sin 
utilizar la variable, nos servirá, sin 
embargo de ejemplo. ¿Cuál será ei 
valor de la variable lado una vez 
hayamos ejecutado el procedi¬ 
miento TRIANGULO? Efectiva¬ 
mente el lector más avispado se 
habrá dado cuenta que en adelante 
también TRIANGULO Y CUA¬ 
DRADO cuando los volvamos a 
ejecutar nos darán figuras con la¬ 
dos de valor 70. Si no nos creen lo 
mejor es comprobarlo. 

Hay otro uso de las variables que 
es de gran utilidad y esperemos 
que el ejemplo sea más ilustrativo 
que la explicación. 

Supongamos que deseamos ir 
modificando el tamaño del trián¬ 
gulo pero sin tener que asignar 
cada vez el valor al lado. Esto se 
puede hacer de la manera siguien¬ 
te: 

PARA TRIANGULO dado 
REPITE : [AVANZA dado GI- 
R ADERECHA 120] 

FIN 

Nótese que hemos escrito junto 
al nombre del procedimiento, la 
variable lado, y que le hemos pues¬ 
to los dos puntos por delante para 
referirnos a su valor. Demos por 
hecho también que esta variable 
no tiene en el momento de escribir 
este procedimiento ningún valor 
asignado. 

Si quisiéramos ejecutar el proce¬ 
dimiento obtendríamos un mensa¬ 
je de error pero esta vez muy dis¬ 
tinto al anterior :Faltan datos en 
TRIANGULO. Efectivamente el 
dato que falta es el valor del lado y 
para poder ejecutar este procedi¬ 
miento deberemos escribir 
TRIANGULO 30. si quisiéramos 
que !a figura tenga un lado de 30; 
o TRIANGULO 40, o TRIAN¬ 
GULO 75, etc. Este uso de la va¬ 
riable es LOCAL y de interesantes 
posibilidades. 


¿Qué haría el procedimiento si¬ 
guiente? 

PARA MUCHOSNU MEROS :n 
ESCRIBE :n 

MUCHOSNUMEROS :n + 1 
FIN 

Fijaros que la segunda línea de 
este procedimiento vuelve a lla¬ 
marse a sí mismo y además le 
suma a :n uno. 

Ciertamente si escribiéramos 
MUCHOSNUMEROS 12, obten¬ 
dríamos una lista interminable de 
la sucesión de los números natura¬ 
les desde el 12 en adelante. 

Pero dejémonos de degresio¬ 
nes teóricas y entremos de lleno en 
la otra cara del LOGO. Lo que os 
proponemos hoy es la confección 
de un diccionario que puede servir 
para que el niño trabaje con un mi- 
croambiente de palabras, en la me¬ 
dida que las vaya descubriendo, y 
les dé una relación determinada. 

Este diccionario puede relacio¬ 
nar dos palabras de cualquier for¬ 
ma. Puede ser una palabra en una 
lengua y en otra: pueden ser dos si¬ 
nónimos, o dos antónimos; los 
masculinos y los femeninos, los 
singulares y plurales, en fin en de¬ 
finitiva es una sencilla base de da¬ 
tos relacional de dos miembros 


El diccionario 

Hay cuatro procedimientos 
principales: DICCIONARIO, en 
donde puedo ir entrando ios datos; 
LISTAR, que como su nombre lo 
indica nos da la lista de todas las 
palabras relacionadas: BUSQUE¬ 
DA, en el que al pedirle por la pri¬ 
mera palabra de la relación nos de¬ 
vuelve la otra, y finalmente INI¬ 
CIAR que nos pone la variable da¬ 
tos a cero y podemos recomenzar. 
Para cualquier duda sobre el signi¬ 
ficado de una primitiva consultad 
al final del artículo el glosario. 























PROGRAMA 


PARA INICIAR 
ASIGNR “dato* CJ 
FIN 


PARA DICCIONARIO 
BORRATEXTO 
ESCRIBE a 

ESCRIBE [ESCRIBE LAS DOS PRLABRR 
53 

ASIGNO “datos PONULT LEELISTA :d 


DICCIONARIO 

FIN 


PARA LISTAR 
BORRATEXTO 
LISTAR1 i datos 
IMPRIME [QUIERES REPETIR?,3 
LEELI5TR * Cs i 3 EUStarI 


?ÍN l 


PARA LISTAR1 : datüft 
SI ESTA,UACIR? : datos taUo3 
ESCRIBE PRIMERO -.datos 
LISTAR1 MEN05PRIMERO :datos 
FIN 

PARA BUSQUEDA 
BORRATEXTO 
ESCAIBE C3 

IMPRIME [PALABRA A BUSCAR?,] 
ASIGNA " Laido PRIMERO LEELISTA 
BUSQUEDAS :datOS 
ESCRIBE E3 

I5CRIBE [QUIERES REPETIR?,] 
LEELISTA * Csi3 Cbusquada] 


PRRR BUSQUEDAS .datos 
SI ESTA.URGIA? ; datOS Calto3 
SI : Laido = PRIMERO PRIMERO :dat 
os [imprime menospr ibero etement 
O I : datos] [búsquedas rdéhosp r i ib 
aro : datos] 

FIN 



El sistema compacto que reúne en una sola unidad los siguientes elementos: 

• Unidad de disco ultramoderna dé 3,5” con 180 K. • Salida para monitor monocromo. 

• Interface paralelo Centronics, * Repetición del bus trasero del Spectrum. 

• Interface de joysück tipo Kempston. • Alimentación interna de todo el sistema. 

FACILMENTE AMFLIABLE A 360 Kybtes. 

PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 

• Contabilidad PNC (500 cuentas/4000 asientos) • Facturación 

• Tratamiento de textos • Nóminas 

• Cambio de Moneda • Base de Datos 

• Control de stocks 

^P ODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO 

DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 




SISTEMAS LOGICOS GIRON A, S.A. ■ Avda. San Narciso, 24 • 1700b GIR0NA - Tel, (872) 23 71 00 
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ASIQNR "l«idQ " LOS 
ASIGNA “da toa [[CASTELLANO INGLE 
fe] [día day] [noche night] Ccoeh 
a car] [hombre man] clos sinonin 
053 [bailo bonito] [claro lumino 
sol [sufrir padecer] [cansado fa 
ti gado] CL05 ANTONIMOS] [bueno ro 
alo] [claro oscuro] [conocer des 
conocer] [amar odiar]] 


CASTELLANO INGLES 
día day 
noche night 
coche car 
hombre man 
LOS SINONIMOS 
bello bonito 
claro luminoso 
sufrir padecer 
cansado fatigado 
LOS ANTONIMOS 
bueno malo 
claro oscuro 
conocer desconocer 
amar odiar 
QUIERES REPETIR?, 


PALACRA A BUSCAR?,cansado 

QUlÉSS^AEPETIR?, 


PALABRA A BUSCAR?,hombre 
QUIERES REPETIR?, 


CRLABRA A BUSCAR?,CQChe 
QUIERES REPETIR?, 





A continuación pasamos a comen¬ 
taros lo que realiza cada procedi¬ 
miento y en un apartado especial lla¬ 
mado «sugerencias» nos permitimos 
aconsejaros unas pequeñas mejoras o 
retoques que, de seguro, os van a po¬ 
ner en algún que otro aprieto, que a 
su vez, servirá para que conozcáis, 
aún más, de lo que es capaz el 
«LOGO». 

1. Inicia liza el Diccionario. 

Sugerencia .—Añadir un mensaje 
confirmando de que se está seguro de 
destruir lo que ya existe en el Dic- 


LOGO-CONSULTAS 


cionrio, de lo contrario no hacer nada, 

2. Incorpora nuevas palabras con 
su correspondiente equivalente. El 
procedimiento una vez finalizado 
vuelve a empezar con lo cual habrá 
que pulsar Break para salir del pro¬ 
grama* 

S tiñeren cia ,—Ve r i ficar que s o n 
dos las palabras que os entran, y no 
más, y que la primera no es igual a la 
segunda* 

3* Busca la palabra que desee el 
operador. Además, al igual que el 
procedimiento anterior da la facilidad 



de buscar repetitivamente. Quizás 
BUSQUEDA! tenga algunas ins¬ 
trucciones algo complicadas que va¬ 
mos a intentar comentaros paso a 
paso* 

• Recibe el control de BUSQUEDA 
con todo el Diccionario» 

m Si está vacío o es el final, para. 

• Si la palabra leída es igual al pri¬ 
mer elemento del Diccionario y de 
éste el primero, visualiza la segun¬ 
da palabra, la equivalente (de las 
dos menos la primera), del primer 
elemento del trozo o parte le! Dic¬ 
cionario en curso . 

• Si la palabra leída es un igual a la 
corriente, vuelve a empezar BUS¬ 
QUEDA!, pero esta vez, sin el pri¬ 
mer elemento (palabra y equivalen¬ 
te) de la lista* 

Sugerencia .—Buscar por la pala¬ 
bra comparando, la primera palabra 
o su correspondiente equivalente, y si 
se llega ai final y no se encuentra 
aquella buscada, dar el error podien¬ 
do reintentar buscar si así se desea* 
Bien, el reto está aquí, esperamos 
que disfrutéis con este pequeño ejerci¬ 
cio y que no dudéis en escribir al 
apartado de sugerencias si necesitáis 
alguna aclaración adicional* 

Miguel Figini 
Francisco Órri Clotet 

































f GLOSARIO DE LAS PRIMITIVAS UTILIZADAS EN ESTE ARTICULO 



BORRATEXTO 
Borra la pantalla y nos 
pone el cursor en la posi¬ 
ción superior izquierda. 

ESCRIBE 

Escribe objeto en la 
pantalla y nos pasa a la lí¬ 


nea siguiente. {Recordar 
que objeto puede ser nú¬ 
mero, palabra o lista de 
palabras). 

PONULT 

Devuelve una nueva 
lista formada por la anti¬ 



gua más el objeto puesto 
en la posición ULTimo 
de la lista. 

LEELISTA 

Devuelve la lista que se 
entra como parámetro. 
Esta lista es una línea es¬ 
crita en la pantalla. 

IMPRIME 

Escribe los objetos en la 
pantalla, pero a diferencia 
de ESCRIBE no pasa a la 
línea siguiente. 

SI 

Es el condicional. SI 
predicado [lista 1] [lista2]: 
Si el predicado es verda¬ 
dero se ejecuta lista!, si es 
falso se ejecuta lista2. 

ESTA. VACIA? 

Devuelve CIERTO si 


objeto está vacío, es decir 
no tiene contenido. 

PRIMERO 

Devuelve el primer ele¬ 
mento de objeto. 

MENOSPRIM ERO 
Devuelve objeto sin su 
primer elemento. 

ELEMENTO N 
Devuelve el N-ésimo 
elemento de la lista. 

PARA 

Señala el comienzo de 
la línea de título, que defi¬ 
ne un procedimiento, 

FIN 

Palabra especial que in¬ 
dica el fin de la definición 
de un procedimiento. 


...MI ORDENADOR ES SINCLAIR, 
MI SERVICIO TECNICO ES HISSA.. 




Y es lo lógico. Si has elegido el mejor 
microordenador del mercado, no vas a 
repararlo con cualquiera. 





Sólo Hissa te puede garantizar 
la utilización de piezas originales SINCLAIR 


Y recuerda que no tendrás sobresaltos 
con el precio. 

COSTE ESTANDAR POR 
REPARACION'_ 

3j50ri®; 


7X$ V 




48 ^ 


y expertos técnicos en reparación. 

Anude a la deleaación más cercana. 

C/, Anbau. SO. piso 5* 1 ü 

C/. San Sotero, n. a 3 

C/ Avuft] de la Libertad. n n 6 Bloq I a Entl Jzq. D 

de Ronda, n° 82, 3* E 

€/. 19 de Julio, n. u 10 - 2' J local 3 

Tells (93) 323 41 65 -323 44 04 

Telfe 754 31 97 - 754 32 34 

Telf (968) 23 18 34 

Telf.- (958) 26 15 94 

Telf (985) 21 88 95 

Q8Q36 BARCELONA 

28037 MADRID 

30009 MURCIA 

18006 GRANADA 

33002 OVIEDO 

C/ Hermanos del Rio Rodríguez, n ■ 7 bis 

0/ Universidad, n 13 4 -2 a 1 

Avdo de Gasteir, n.° 19 A - 1 11 D 

C/. Travesía de Vigo. n p 32 1 

0/ Atares. n, D 4 - 5 D D 

Telf. (954) 36 17 08 

TeíC.: (96) 352 48 32 

Telf {945) 22 52 05 

Telf (986) 37 78 87 

Telf (976) 22 47 09 

41009 SEVILLA 

46002 VALENCIA 

01008 VITORIA 

6 VIGO 

50003 ZARAGOZA 







































Un científico creó, hace mucho 
tiempo, dos laberintos que prote¬ 
gieran su saber. Ambos desorienta¬ 
rán ai curioso y, por si algún osado 
intenta penetrar, existen dos de¬ 
fensas adicionales: las Esferas Ce¬ 
lestes, que se mueven en trayecto¬ 
rias predeterminadas, y que no po¬ 
demos tocar bajo peligro de muer¬ 
te y las Torres del Silencio, que 
apuntan sus láseres y no nos per¬ 
donarán si pasamos en la dirección 
cubierta, 

Afortunadamente, nosotros dis¬ 
ponemos de un vehículo (el He- 
droide) muy especial, cuyo radar 
nos indica en qué dirección apun¬ 
tan los láseres. Nuestro propio ca¬ 
ñón láser puede destruir las To¬ 
rres, siempre que logremos un im¬ 
pacto por la parte trasera. El ico¬ 
saedro de la parte inferior derecha 
del tablón de mandos nos indica en 


qué zona del laberinto nos encon¬ 
tramos. Cada laberinto tiene doce 
zonas, con dificultad creciente. El 
objetivo es recorrerlas, hasta llegar 
al depósito de sabiduría de la parte 
central En el laberinto «fácil» (lla¬ 
mado Atrio) la parte central nos 
llevará a la entrada del laberinto fi¬ 
nal (la Necrópolis). 

El segundo laberinto nos lleva 
directamente hagia... un Porsche 
924. En efecto, todos aquel los que 
acierten la combinación final del 
juego serán invitados a una gran fi¬ 
nal en Londres, donde competirán 
en el laberinto para conseguir este 
premio. 


GYRON 


Nos aprestamos a 
entrar en el 
laberinto. 


Control: Teclado, Joystick. 

Jugadores: Uno. 

Gráficos: Gráficos geométri¬ 
cos 3D, muy logrados. 

Niveles de dificultad: Dos jue¬ 
gos, uno de entrenamiento y 
otro de competición. 

Originalidad: Laberinto en 
tres dimensiones donde el obje¬ 
tivo es llegar al centro sin ser 
destruido. 

Conclusión: Si aceptamos el 
desafio, resulta muy adjetivo. 
Como no tiene puntuación, re¬ 
sulta difícil apreciar los progre¬ 
sos. 


Serma 

Speetrum 48 K 
2.500 pías 



Nuestro vehículo tiene movi¬ 
miento hacia adelante, giro a los 
dos lados, freno y la posibilidad de 
volverse en redondo instantánea¬ 
mente. Unos indicadores de posi¬ 
ción nos dicen si podemos o no gi¬ 
rar hacia los lados. El láser es de 
disparo continuo, y se puede apun¬ 
tar con las mismas teclas que mue¬ 
ven al vehículo. Los impactos con¬ 
tra las paredes debilitan progresi¬ 
vamente nuestro robot, hasta cau¬ 
sar su destrucción. 

La dificultad está bien dosifica¬ 
da. T ras unos primeros juegos, que 
nos familiarizarán con sus man¬ 
dos, el Atrio parece al menos acce¬ 
sible, aunque resulte difícil de 





































roer. El segundo laberinto (con 
premio) exige una gran concentra- 
ción-y dominio del vehículo para 
no caer a las primeras de cambio. 


Un juego difícil, con unos gráfi¬ 
cos en tres dimensiones de tipo 
geométrico realmente soberbios, y 
que agradará a quienes disfruten 


con los laberintos. No hay mons¬ 
truos que matar, no hay puntos 
para competir. Sólo el premio de 
llegar al final. Y no es poca cosa. 



ne... 

Antes vienen las apuestas y- el 
delicado ritual de elegir caballo: el 
8 tiene buena salida, pero no corre 
bien sobre terreno duro; en cambio 
el 6... Todos estos factores, y la ne¬ 
cesidad de suerte para pasar co¬ 
rrectamente los treinta obstáculos 
que componen la carrera, hacen de 
éste un juego animado. Quizá su 
principa! problema es que la com¬ 
petición en si es relativamente len¬ 
ta, y el proceso de apuestas y elec¬ 
ción de caballo retrasa aún más 
nuestra salida. Por lo demás, tanto 
la velocidad como los gráficos es¬ 
tán muy bien resueltos. 

Y una advertencia; ojo con em¬ 
pujar a (os demás caballos: los jue¬ 
ces abrirán una encuesta, y lo me¬ 
nos que os puede pasar es que se os 
imponga una multa. 


da de los demás caballos. Poco a 
poco recuperarnos posiciones, 
pero sin hacemos ilusiones: sólo 
estamos en la posición 31 cuando 
nos acercamos al primer obstácu» 
lo. Saltamos, Muy bien. Vamos 
mejorando. 

El cuarto obstáculo se nos acer¬ 
ca. Ya se han retirado o han caído 
10 corredores. Nuestra posición es 


ABC Soft 
Spcctrum 48 K 
1.795 ptas. 


Suena la señal de salida. Gol¬ 
peamos al caballo con la fusta sin 
piedad, pero es inútil: perdemos 
posiciones ante la impetuosa salí- 


Ya en primera 
posición, la meta 
se encuentra a 
nuestro alcance. 


Control: Teclado, 

Jugadores: Uno. 

Gráficos: La animación del 
caballo está bien resuelta, sobre 
todo la vista lateral. 

Sonido: Los chasquidos de las 
ramas al pasar los obstáculos 
son los únicos efectos sonoros 
del programa. 

Niveles de dificultad: No tie¬ 
ne. 

Originalidad: Muy original. 
Se puede ganar dinero con las 
apuestas o los premios de las ca¬ 
rreras o limitarse a competir. 

Conclusión: El planteamiento 
es atractivo: competir en la ca¬ 
rrera hípica más dura, apostan¬ 
do además a rus caballos favori¬ 
tos. hace muy adjetivo este jue¬ 
go, Una vez superemos nuestros 
primeros obstáculos, no es tan 
difícil como parece. 


La ría, un 
abstácuio difícil y 
complicado. 


GRAND NATIONAL 


mejor: el octavo lugar. Saltamos 
algo tarde y nuestro caballo cae. 
Una lástima. Pero el año que vie- 
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en Castellano 


En informática , el inglés lo domina todo. Los lenguajes de 
programación se basan en términos ingleses o en sus abreviaturas. 
Los programas se crean mayoritariamente en este idioma y las 
traducciones tardan en llegar. Es hora ya de que esta situación 
empiece a cambiar. En estas páginas presentamos una interesante 
aplicación que permitirá obtener íntegramente en castellano los 
listados de cualquier programa. 


C uando cualquiera de noso¬ 
tros se «enfrenta» por pri¬ 
mera vez a un ordenador 
(supongamos que al Spectrum), se 
encuentra con que ha de aprender 
un nuevo lenguaje si quiere ser ca¬ 
paz de programarlo. Este lenguaje 
es el BASIC (Beginners’AUpurpo- 
se Symbolic Instruction Code); 
. como su nombre indica se trata de 


un «idioma» pensado para los 
principiantes, y su aprendizaje no 
es demasiado conflictivo..,, al me¬ 
nos para los anglosajones. Porque 
como rápidamente advertimos, el 
BASIC está formado a base de pa¬ 
labras en inglés b de sus abreviatu¬ 
ras. Así, si no se conoce este idio¬ 
ma, la cosa resultará ya algo más 
difícil. 


Pues bien, esta rutina en código 
máquina nos permitirá al menos el 
consuelo de listar programas en 
castellano. 

Para entender cómo funciona 
deberemos conocer primero cómo 
almacena los programas en BASIC 
nuestro ordenador. Esto lo explica 
el manual del Spectrum en el capí¬ 
tulo 24, aunque quizá demasiado 


FADO 



0010 ORG 

64000 



indicador de 

constante 

F AOO 

DD2A535C 

0020 LD 

IX ? (23635) 



Si A es 

mayar 

que 

164 entonces 



IX 

apunta al comiendo del area 



es un Token 





de 

programa 




Salta a 

FINLI 

si A 

es indicador 



HL 

=numero de linea 




de fin de linea 









En otro 

caso 

imprime A 

FA04 

CDA3FA 


0030 CALL 

CAN2 



El laso 

se re 

pite 

hasta que el 

FA07 

DD6600 


0040 NLIN LD 

Fl* <IX+0) 



registro A indique 

fin de 1 inea 

FAOA 

DD6E01 


0050 LD 

L,(IX+1) 






1 

FAOD 

CD5BFA 


0060 CALL 

NUML I 

FfilC 

FEÜE 

0120 


CF 

14 

FA i 0 

CDA9FA 


0070 CALL 

IhPNL 

FA1E 

23 ID 

0130 


JR 

Z*CONST 

FA13 

0604 


0080 LD 

B*4 

FA20 

FEA5 

0140 


CF 

165 



Incrementa IX cuatro veces cara 

FA22 

3024 

0150 


JR 

NC,TOKEN 



apuntar al numero 

de linea 

FA24 

FEOD 

0160 


CF 

lo 






FA26 

2305 

0170 


JR 

Z«,FINLI 

FA 15 

DD23 


0090 UNCI INC 

IX 

FA2B 

D7 

01 so 


RST 

10H 

FA17 

10FC 


OIDO DJNZ 

UNCI 

FA29 

DD23 

0190 


INC 

IX 

FA 19 

DD7E00 


0110 LAZ02 LD 

A,<lX+0) 

FA2B 

1SEC 

0200 


JR 

LAZ02 



Carga A can el carácter 

FA2D 

D7 

0210 

FINLI 

RST 

ION 



Salta a CONST si A 

es un 

FA2E 

DD23 

0220 


INC 

IX 


















escuetamente. Vamos a comentar¬ 
lo con algo más de detenimiento: 

La variable del sistema PROG 
(direcciones 23635 y 23636) con¬ 
tiene la dirección de la memoria 
donde comienza el programa BA¬ 
SIC. A partir de esa dirección se 
guardan las líneas del programa. 
Los dos primeros bytes contienen 
el número de línea, curiosamente, 
con el byte más significativo de¬ 
lante. es decir, al contrario de 


como normalmente ocurre. Vie¬ 
nen a continuación otros dos bytes 
que nos dan la longitud de la línea. 
Los siguientes bytes contienen la 
línea de BASIC propiamente dicha 
y, por último, encontramos un 
byte cuyo valor es 13 e indica el fi¬ 
nal de línea. En las siguientes di¬ 
recciones de memoria estarán al¬ 
macenadas de este mismo modo 
las demás líneas del programa. 

Hay que tener además en cuenta 


que si en una línea existe una cons¬ 
tante numérica inmediatamente 
tras ella habrá un byte con el valor 
14, seguido por cinco bytes que 
contienen el valor de la constante. 

A continuación del programa en 
BASIC se encuentra el área de va¬ 
riables. Por consiguiente, ia direc¬ 
ción contenida en la variable del 
sistema VARS es la dirección don¬ 
de termina el programa. 

Con estos datos ya estamos en 
condiciones de escribir una rutina 
en C/M que nos permita obtener 
listados «castellanizados». Se trata 
simplemente de cambiar los To- 
kens o palabras del Basic Sinclair 
por sus homólogos en castellano. 
¿Cuáles son estos Tokens?: veamos 
el juego de caracteres del Speetrum 
(apéndice A del manual). Los To¬ 
kens son todos los caracteres cuyo 
código es mayor de 164, es decir, 
de RNDaCOPY. 

Estos son, pues, los caracteres 
que nuestro programa en C/M sus¬ 
tituirá a la hora de hacer listados. 

La rutina comienza a partir de la 
dirección 64000 y ocupa 1105 by¬ 
tes (algo más de 1 K), pero si se dis¬ 
pone de un ensamblador podrá 
ubicarse en cualquier otra direc¬ 
ción (una buena localización para 


FA30 

DDE5 

0230 

F'USH 

IX 

F A32 

ED5B4B50 0240 

LD 

BE,(23627) 



Comprueba 

si el puntero IX ha 



sobrepasado el area 

de programa 



y en casa 

con t r ari o 

sal ta a NLII 

FA3ó 

El 

02530 

POP 

HL 

FA37 

A7 

0260 

AND 

A 

FA3B 

ED52 

0270 

SBC 

HL t DE 

FA3A 

3BCB 

0280 

JR 

C„NLIN 

FA3C 

C9 

0290 

RET 



Retorna al BASIC 
Incrementa XX fe veces ai 
encontrar una indicación de 
constante numérica 
Imprime un espacio detras de 
cada constante 


FA3D 

06 Dé 

0300 

CDNST LD 

B, 6 

FA3F 

DD23 

0310 

1INC2 INC 

IX 

FA41 

10FC 

0320 

DJNZ 

I INC2 

FA43 

3E20 

0330 

LD 

A, 32 

F A45 

D7 

0340 

R3T 

1 OH 

FA4fe 

18D1 

0350 

JR 

LAZ02 

FA4B 

DEA4 

0360 

TOKEN SBC 

164 



Halla el 

numero de 

orden del 



Token 



FA4A 

21B9FA 0370 

LD 

HL,TGKS-10 

FA4D 

47 

0380 

LD 

B, A 

FA4E 

IIOAOO 0390 

LD 

DE, 10 



HL apunta a la direcipn donde 



encuentra el Token 


FA51 

19 

0400 

AADD1 ADD 

HL, DE 

FA52 

10FD 

0410 

DJNZ 

AADD1 



0 * 













i La variable PROG guarda 
la dirección de comienzo de 
I los programas. 


I Los Tokens son los 90 

últimos caracteres, de RND 
a COPY, 


u! Spectrum de 16 K sería, por 
ejemplo, la 31500, lo que conse¬ 
guiríamos cambiando el ORG 
64000 del listado adjunto por 
ORG 31500). 

Los términos PEER, POKE. 
OUT e 1N se han dejado sin alte¬ 
rar, bien por no encontrar una tra¬ 
ducción adecuada, bien por no 
cpmplicar los nuevos listados en 
castellano. Sin embargo, si alguien 
lo desea puede traducir estas pala¬ 


bras o cambiar la traducción dada 
a las otras sin más que respetar dos 
condiciones: 

— Toda palabra ha de tener 
nueve caracteres más un punto. 

— Se debe escribir cada palabra 
poniendo un punto tras ella, y se 
recomienda dejar un espacio en 
blanco entre ella y ei punto para 
que los listados obtenidos sean cla¬ 
ros y ordenados. 

Estas condiciones se deben a que 


la subaiíina de impresión de los 
nuevos Tokens utiliza el carácter 
como END-MARKER, esto 
es, reconoce el punto como final 
de palabra y retoma. (Sobre este 
tema se pueden consultar los ar¬ 
tículos sobre código máquina pu¬ 
blicados en la revista ZX , concre¬ 
tamente lo concerniente a rutinas 
de impresión). 

Son ejemplos de palabras váli¬ 
das los siguientes: 


FA54 

CDB7FA 

0420 

CALL 

IMTOK 

FA57 

DD23 

0430 

INC 

IX 

FA59 

1SBE 

0440 

JR 

LAZ02 

FA5B 

DDE5 

0430 NUMLI 

PUSH 

IX 


Esta subrutina convierte el 
numero de linea, contenido en el 
registro HL, en cuatro códigos 
ASCII que almacena en el but-fer 
NUhER 


FASO 

DD21BFFA 

0460 


LD 

IX,NUMER 

FA61 

ES 

0470 


PUSH 

HL 

FA62 

21EBÜ3 

04B0 


LD 

HL,1000 

FA65 

ES 

0490 


EX 

DE, HL 

F A66 

El 

0500 


POP 

HL 

FAÓ7 

DDBAFA 

0310 


CALL 

ETIOl 

FA6A 

DO 2 3 

0520 


INC 

IX 

FAÓC 

E5 

0530 


PUSH 

HL 

FA6D 

216400 

0540 


LD 

HL * 100 

FA70 

EB 

0550 


EX 

DE, HL 

FA71 

El 

0560 


POP 

HL 

FA72 

CD8AFA 

0570 


CALL 

ETIQ1 

FA75 

DD23 

0580 


INC 

I X 

FA77 

E5 

0590 


PUSH 

HL 

FA7B 

21DADO 

0600 


LD 

HL* 10 

FA7B 

EB 

0610 


EX 

DE, HL 

FA7C 

El 

0620 


PDF 

HL 

FA7D 

CD8AFA 

0630 


CALL 

ETIS1 

FABO 

DD23 

0640 


INC 

IX 

FAS2 

7D 

0650 


LD 

A, L 

FA83 

4F 

0660 


LD 

C, A 

FA84 

CD9CFA 

0670 


CALL 

CAR 2 

FA87 

DDE1 

0680 


PDF 

IX 

FAQ? 

C9 

0690 


RET 


FAGA 

010000 

0700 

ETIG1 

LD 

BC, 0 

FABD 

A7 

0710 

LAZOl 

AND 

A 

FA8E 

EB52 

0720 


SBC 

HL* DE ' 

FA90 

03 

0730 


INC 

BC 

FA91 

2609 

0740 


JR 

Z,CAR2 

FA93 

3602 

0750 


JR 

C* CAR 

FA95 

ISFó 

0760 


JR 

LAZOl 

FA97 

19 

0770 

CAR 

ADD 

HL, DE 

FA96 

3EFF 

0780 


LD 

A,OFFH 

FA9A 

81 

0790 


ADD 

C 

FA9B 

4F 

0800 


LD 

C, A 

FA 9C 

79 

OS 10 

CAR 2 

LD 

A, C 

FA9D 

C630 

0620 


ADD 

48 

FA9F 

DD7700 

0830 


LD 

E1X+0),A 


FAA2 

C9 

0840 

RET 


FAA3 

3E02 

0850 CAN2 

LD 

A,2 

FAA5 

CD0116 

0860 

CALL 

1601H 



Abre el canal 2 

mediante una 



11 amada a la ROM 

FAAS 

C9 

0870 

RET 


FAA9 

11BFFA 

0880 IMPNL 

LD 

DE,NUMER 



Imprime el 

numero de linea 

FAAC 

0604 

0890 

LD 

8,4 

FAAE 

IA 

0900 IMPR 

LD 

A, (DE) 

FAAF 

D7 

0910 

RST 

1 OH 

FABO 

13 

0920 

INC 

DE 

FAB! 

1 OFB 

0930 

DJNZ 

IMPR 

F AB3 

3E20 

0940 

LD 

A, 32 



Imprime un 

. espacio a 



continuaci on 


FAB5 

D7 

0950 

RST 

ION 

FAB6 

C9 

0960 

RET 


FAB7 

7E 

0970 IMTOK 

LD 

A, (HL) 



Impr es i on 

del Token 



Si el carácter 

e= un punto* 



retorna 



FAB8 

FE2E 

0980 

CP 

46 

FABA 

CS 

0990 

RET 

Z 

FABB 

D7 

1000 

RST 

10H 

FABC 

23 

i 010 

INC 

HL 

FABD 

1BF8 

1020 

JR ’ 

IMTOK 

FABF 

00 

1030 NUMER 

DEFB 

0 

FACO 

00 

1040 

DEFB 

0 

FACI 

00 

1050 

DEFB 

0 

FAC2 

00 

1060 

DEFB 

0 

FAC3 


1070 TOKS 

DEFM 

"NUALEATQR," 



Tabla con 

los nuevos Tokens, 

FACD 


1080 

DEFM 

"TECLAS, 

FAD7 


1090 

DEFM 

npi. 

FAE1 


1100 

DEFM 

"FUNCION. 

FAEB 


1110 

DEFM 

"PUNTO- 

FAF5 


1 120 

DEFM 

"PANTALLAS. M 

FAFF 


11 30 

DEFM 

"ATRIBUTO- " 

FB09 


1140 

DEFM 

"EN - 




















I La rutina parte de la 
dirección 64000 y ocupa 
1105 bytes. 


DEFM “PUNTO-. 123” 

DEFM “-PUNTO.—” 

DEFM “Punto-.-”, 
mientras que no son correctas 
esta otras: 

DEFM “PUNTO.” 

DEFM “NUMALEATORIO” 
DEFM “PUNTO-.-”, 
la primera por carecer del carác¬ 
ter la segunda por exceder de 
los 10 caracteres y la tercera por 


todos estos ejemplos los guiones 
representan espacios en blanco. 

¿Cómo funciona el programa? 
Supongamos que ya lo ha tecleado 
y grabado correctamente. Haga 
CLEAR 63999 para proteger el có¬ 
digo máquina y cargúelo mediante 
LOAD “ ” CODE 64000 o LOAD 
CODE. Sí ahora carga cual¬ 
quier programa en BASIC y hace 
RANDOMIZE USR 64000 verá 


del mismo como si hubiera teclea¬ 
do LIST, sólo que en este caso es¬ 
tará en castellano. 

Para terminar añadir que quien 
no disponga de ensamblador po¬ 
drá, igualmente, cargar el progra¬ 
ma con un simple cargador hexa- 
decimal, pero habrá de hacerlo ne¬ 
cesariamente a partir de la direc¬ 
ción 64000. 


tener menos de 

10 caracteres. 

En 

aparecer en su pantalla el listado 


“ 

Enrique F. Carreta 

(Ai*. ■ i .. . J • ■< \ ' ' ‘ ' _LÍ- J ‘ 7 - V ■ 










FBI 3 

1150 

DEFM 

"TABULAD . 

ii 

FCCB 


1620 


DEFM "TINTA . " 

FB1D 

1160 

DEFM 

"VALOR*. 

t* 

FCD5 


1630 


DEFM "PAPEL . 

FB27 

11 70 

DEFM 

"CODIGO , 

n 

FCDF 


1640 


DEFM "PARPADEO 

FB31 

i iso 

DEFM 

"VALOR. 

ti 

FCE9 


1650 


DEFM "BRILLO . 

F63B 

1190 

DEFM 

"LONGITUD. 

n 

FCF3 


1660 


DEFM "INVERSO . " 

FB45 

1200 

DEFM 

"SENO , 

i» 

FCFD 


1670 


DEFM "SOBREIMP 

FB4F 

1210 

DEFM 

"COSENO . 

o 

FD07 


1.680 


DEFM "OUT . 

FB59 

1220 

DEFM 

"TANGENTE , 

ii 

FDl 1 


1690 


DEFM "IMPRIME . " 

FB63 

1230 

DEFM 

"ARC3ENÜ . 

ii 

FD1B 


1700 


DEFM "IMPRLIST 

FB6D 

1240 

DEFM 

"ARCOOS P 

!■ 

FD25 


1710 


DEFM "PARA . 

FB77 

1,250 

DEFM 

"ARCTANG . 

ir 

FD2F 


1720 


DEFM "LEE . 

FB61 

1260 

DEFM 

"LOGN . 

» 

FD39 


1 730 


DEFM "DATOS . 

FBSB 

1270 

DEFM 

"EXP , 

ir 

FD43 


1740 


DEFM "REGRESA . " 

FB 95 

1280 

DEFM 

"FARTENTER. 

ii 

FD4D 


1750 


DEFM "RENUEVA . " 

FB9F 

1290 

DEFM 

"RAIZ . 

Él 

FD57 


1760 


DEFM "BORDE . 

FBA9 

1300 

DEFM 

"SIGNO , 

ll 

FD61 


1770 


DEFM "CONTINUA 

FBB3 

1310 

DEFM 

"VALORASE . 

Él 

FD6B 


17BO 


DEFM "DIMENS . 

FBBD 

1320 

DEFM 

11 PEEK . 

■ 1 

FD 75 


1790 


DEFM "NOTA , » 

FBC7 

1330 

DEFM 

"IN . 

II 

FD7F 


1800 


DEFM "DESDE . 

FBDl 

1 340 

DEFM 

"USR , 

II 

FD89 


1810 


DEFM "VE A . 

FBDB 

1350 

DEFM 

M CADENA* . 

» 

FD93 


1S20 


DEFM "VE SUB . 

F8E5 

1360 

DEFM 

"CARACT* . 

11 

FD9D 


1330 


DEFM "INTRQDUC 

FBEF 

1370 

DEFM 

M NQ , 

II 

FDA7 


1840 


DEFM "GARBA . 

FBF9 

1380 

DEFM 

"BINAR , 

*1 

FDB1 


1850 


DEFM "LISTA . " 

FC03 

1390 

DEFM 

M 0 ■ 

n 

FDBB 


1860 


DEFM ”HA2 . 

FCOD 

1400 

DEFM 

"Y . 

ir 

FDC5 


1870 


DEFM "PAUSA , " 

FC17 C7 

1410 

DEFB 

199 


FDCF 


1880 


DEFM "SI GUIEN! 

FC18 

1420 

DEFM 

o ii 


FDD9 


1890 


DEFM "POKE . 

FC21 CS 

1430 

DEFB 

200 


FDE3 


1900 


DEFM "ESCRIBE . " 

FC22 

1440 

DEFM 

■i ii 


FDED 


1910 


DEFM "DIBUJA . 

FC2B C9 

1450 

DEFB 

201 


FDF7 


1920 


DEFM "RUN . 

FC2C 

1460 

DEFM 

Pi i i 


FE01 


1930 


DEFM "GRABA . 

FC35 

1470 

DEFM 

"LINEA . 

l* 

FEOB 


1940 


DEFM "ALEATÜR . " 

FC3F 

14 SO 

DEFM 

"ENTONCES ■ 

ii 

FE 15 


1950 


DEFM "SI . 

FC49 

1490 

DEFM 

"HASTA « 

ii 

FE 1F 


1960 


DEFM "BORRAFANT." 

FC53 

1500 

DEFM 

"INCPEMEN . 

■ i 

FE29 


1970 


DEFM "TRAZA , " 

FCSD 

1510 

DEFM 

"DEF FUNC - 

H 

FE33 


1980 


DEFM "BÜRVAR'IAB. " 

FC67 

1520 

DEFM 

"CATALOS . 

II 

FE3D 


1990 


DEFM "REGRESA . ” 

FC71 

1530 

DEFM 

"FORMATEA . 

ir 

FE47 


2000 


DEFM "COFIAIMF. " 

FC7B 

1540 

DEFM 

"MUEVE . 

■ ■ 



2010 


END 

FC85 

1550 

DEFM 

"BORRA , 

ii 

TQKS 

FAC3 

NUMER 

FABF 

IMTOK FAB7 

FC8F 

1560 

DEFM 

"ABRE# p 

n 

IMFR 

FAAE 

IMPNL 

FAA9 

CAN2 FAA3 

FC 9 9 

1570 

DEFM 

"CIERRA# . 

Ir 

CAR2 

FA9C 

CAR 

FA97 

LAZO 1 FASD 

FCA3 

1580 

DEFM 

"FUSIONA , 

ii 

ETIQ1 

FAQA 

NUMLI 

FA5B 

AADD1 FA51 

FCAD 

1590 

DEFM 

"VERIFICA . 

i* 

TOKEN 

FA4S 

IINC2 

FA3F 

CONST FA3D 

FCB7 

1 600 

DEFM 

"SUENA . 

ii 
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T odos hemos oído alguna vez 
la canción «Do they know 
ít’s Christmas?», cantada 
■■■ por una superbanda, la 
Band Aid, y cuyos ingresos 
van destinados a un fondo benéfico 
para intentar paliar los electos de 
la sequía en Etiopía. La cinta que 
comentamos persigue este mismo 
objetivo, pero desde el punto de 
vista del software. 

Varias empresas de software bri¬ 
tánicas se han unido para ofrecer 
una colección de programas uni¬ 
dos bajo en nombre de Softaid. Los 
beneficios obtenidos se destinarán 
a esa misma campaña, y las dos ca¬ 
ras de la cinta contienen la canción 
citada. 

A continuación, comienzan los 
programas, siendo el primero 
Spellbound (hechizo) de Beyond. 
En este juego debemos tratar de 
«pisar» cada uno de los peldaños 
de una pirámide mientras la bruja 
Griselda nos envía terribles demo¬ 
nios en nuestra persecusión. Hasta 
un total de doce pirámides, que de¬ 
beremos recorrer para dejar nues¬ 
tra apariencia de rana y volver a 
convertimos en príncipe. 

Guandos nos hayamos cansado, 
podemos pasar al siguiente progra¬ 
ma. Starbike, de The Edge. Nues¬ 
tra nave nos lleva de planeta en 


planeta, y nuestra misión, a los 
mandos de una potente bicicleta 
espacial, consiste en rescatar a los 
Oróla, una especie de macetas sal- 
tarinas, y llevarlos de nuevo a 
nuestra nave nodriza entre una llu¬ 
via de extraterrestres y meteoritos. 
A continuación pasamos a otro 
planeta, donde las cosas resultarán 
sin duda más difíciles. 

El tercer juego es el Kokotoni 
Wilf, de Elite. Conocido por mu¬ 
chos lectores, nuestro objetivo es 
recoger pedazos de un amuleto 
mágico a través de varias épocas. 
Para ello nuestro héroe, dotado de 
alas, debe buscar incansablemente 
esquivando a los enemigos que in¬ 
tentarán evitarlo. 

La pirámide, de Fantasy, nos 
exige recorrer las cámaras interio¬ 
res de una pirámide, destruyendo 
los enemigos que nos iremos en¬ 
contrando y absorbiendo energía 
de unos cristales que aparecerán 
periódicamente, hasta pasar al si¬ 
guiente nivel. Finalmente podre¬ 
mos resolver el rompecabezas de la 
pirámide, teniendo en cuenta las 
pistas que nos irán proporcionan¬ 
do en las cámaras que iremos visi¬ 
tando sucesivamente. 

El último programa de la cara A 
nos sirve para reeencontrar a un 
viejo amigo: Horacio. Se trata de 


Horacio va a esquiar, de Melbour- 

ne-Psion. Horacio decide ir a es¬ 
quiar, pero para ello debe, en pri¬ 
mer lugar, cruzar la carretera para 
poder alquilar los esquíes. Si no te¬ 
nemos cuidado y somos atropella¬ 
dos nos tendremos que gastar dine¬ 
ro en pagar la ambulancia. Una 
vez en la estación de esquí, hay 
que esquivar los árboles, y procu¬ 
rar hacer un recorrido correcto en¬ 
tre las banderas. 

En la cara B comenzamos con El 
oro de Cilligan, de Ocean. Se trata 
de un laberinto muy acelerado, 
donde debemos intentar recoger el 
mayor número posible de sacos de 
oro. Pero, iojo!, los bandidos inten¬ 
tarán acabar con nosotros. Si tene¬ 
mos cuidado de no acercarnos a 
ellos la cosa irá bien. 

Ant attack es el siguiente progra¬ 
ma. Un programa ya conocido, de 
Quicksílvia, donde se nos da la 
oportunidad de rescatar a la chica 
(o chico) de la ciudad de las hormi¬ 
gas gigantes. Su resolución en 3D 
es buena siendo uno de los prime¬ 
ros programas que utilizó esta téc¬ 
nica. 

El 31) Tank Duel, a continua¬ 
ción, nos presenta un mundo de fi¬ 
guras geométricas en perspectiva, 
donde nuestro tanque se debe en¬ 
frentar a varios potentes enemigos. 
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CASSETTE MAGAZINE POR 


Ya entre los dos últimos progra¬ 
mas de la cinta, uno muy conoci¬ 
do: Jack and the Beanstalk, de 
Thor, donde el equivalente inglés 
de Pulgarcito tiene que sacar el te¬ 
soro del castillo del gigante. Para 
ello hay que comenzar por subir 
más arriba de las nubes trepando 
por la gigantesca planta que creció 
en el jardín. 

El otro, Sorcery, de Virgin, nos 
obliga a intentar el rescate de tres 
hechiceros entre las piedras sagra¬ 
das de Stonehenge. Para ello, ade¬ 
más de esquivar a los mensajeros 
diabólicos de Necromancer, debe¬ 
mos encontrar el objeto que des¬ 
truirá al enemigo. 

Con la edición de este cassette 
de juegos, a beneficio de los afecta¬ 
dos por el hambre en Etiopia, y 
que incluye el tema musical de la 
campaña, no hacen sino acentuar¬ 
se los paralelismos observados an¬ 
teriormente entre el mundo del 
disco y el software para microorde¬ 
nadores. Los mecanismos de edi¬ 
ción y comercialización, las pro¬ 
pias casas que se encargan de la 
distribución y manufactura y el 
formato de venta se acercan cada 
vez más. dándole una nueva signi¬ 
ficación al concepto del programa 
de ordenador. 


Volviendo a Sofía id. después de 
pasar por los diez juegos que in¬ 
cluye la cinta, nos queda la sensa¬ 
ción de que, si bien alguno de ellos 
ha sido de los más vendidos en su 
momento, no está constituido por 
novedades en el mercado, A pesar 
de ello, supera ampliamente la ca¬ 
lidad de otras colecciones de jue¬ 
gos. Por otra parte, el objetivo be¬ 
néfico de su edición añade una 
componente extracomercial al 
cassette. 


Un juego rápido y muy movido, 
donde nuestro tanque caerá vícti¬ 
ma de los enemigos ai primer des¬ 
cuido. El juego ha sido cedido por 

Real-time. 


Cassette Magazine es otra de las iniciativas pro-Etiopía. 


Realizado y distribuido por Software Center, se trata de una 
revista en cassette —otra más—, destinándose los beneficios del 
primer número a la campaña de Etiopía. 

La diferencia con otras cassettes similares, consiste en ía 
introducción de una segunda cara de temas generales: cine, 
entrevistas, deporte, música. La primera cara de la cinta 
contiene diversos programas para el Spectrum. El precio del 
primer número es de 1.000 pesetas. 
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UANDO nos hablan de 
Morse, todos pensamos en 
los telegrafistas de las pelí¬ 
culas del oeste, amenazados 
por los malos para que no 
avisen de que la vía está cortada o 
en el SOS de un barco que se hun¬ 
de. A las personas ajenas a este 
mundo de los radioaficionados nos 
puede parecer que «eso del Morse 
debe estar un poco caduco». Nada 
más lejos de la realidad. 

Miguel Angel Romero nos cuen¬ 
ta que, todavía hoy, hay muchos 
radioaficionados que utilizan la te¬ 
legrafía por puro placer. La emi¬ 
sión en Morse tiene también la 
ventaja de su mayor alcance cuan¬ 
do se emite en condiciones defec¬ 
tuosas. También se emite en Mor¬ 
se información meteorológica y 
ayuda a la navegación, y existen 
radiofaros y balizas que utilizan 
este sistema. 

Miguel Angel ha diseñado un 
Interface y un programa que, co¬ 
nectado a un Interface joysück tipo 
Kempston por el lado del ordena¬ 
dor y a un receptor transmisor por 


el otro, nos permite usar el Spec- 
trum como experto radiotelegrafis¬ 
ta, emitiendo todo aquello que te¬ 
cleemos y escribiendo en pantalla 
los caracteres que recibe, siempre 
que la señal no tenga excesivo ni¬ 
vel de ruido. Para recibir debemos 
tener algo de práctica e indicarle al 
Spectrum la velocidad aproximada 
de transmisión, entre cinco posi¬ 
bles. La sintonía correcta es el 
punto que más puede afectar la 
transmisión. 

Con su equipo, comercializado 
por TYT, basta una hoja con las 
abreviaturas más utilizadas para 
lograr una excelente comunica¬ 
ción. Salvada la barrera del código 
Morse, sólo las diferencias idiomá- 
ticas nos impedirán la comuncia- 
ción con todo el mundo. 

Lo intentamos, pero los radioa¬ 
ficionados son «aves nocturnas», 
debido a las mejores condiciones 
de propagación, y debido también 
a que el nuevo equipo de Miguel 
Angel no dispone todavía de una 
antena en condiciones aceptables, 
no pudimos conectar con ningún 
particular, pero recibimos una es¬ 
tación francesa de información 
meteorológica y ayuda a la navega¬ 
ción, que nos informó del tráfico 
marítimo en el Atlántico. 

Siempre dentro del mundo de la 
radio, Miguel Angel nos enseñó 
también un programa de TYT, 
realizado para permitir a los ra¬ 
dioaficionados el aprendizaje de 
los prefijos internacionales usados 
en las estaciones emisoras. Dispo¬ 
ne de una opción para sacar el lis¬ 
tado de todos los prefijos mundia¬ 
les, con el país, distancia aproxi¬ 
mada, rumbo y WAZ. Si el prefijo 
indicado no corresponde a un solo 
país, el programa nos listará todos 
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aquellos cuyo prefijo comience 
por las letras pulsadas. 

Los datos de rumbo han sido to¬ 
mados desde el centro de la Penín¬ 
sula Ibérica, por lo que no resulta¬ 
rán fiables si se emite desde la peri¬ 
feria hacia países cercanos. Asi¬ 
mismo, en el caso de naciones muy 
extensas, los datos de WAZ y 
rumbo se sustituyen por VRS, 


indicando que estos datos son varia 
bles. 

Entre silbidos, puntos y rayas, 
Miguel Angel nos cuenta que está 
pensando seriamente en la cons¬ 
trucción de un Interfáce radiotele- 
tipo, que ensanche aún más las po¬ 
sibilidades de comunicación del 
Spectrum; «Los principales pro¬ 
blemas que encuentro es que en el 


Spectrum es muy difícil tempori¬ 
zar intervalos de menos de dos 
centésimas de segundo desde BA¬ 
SIC. Así, nos enfrentamos con pro¬ 
blemas para realizar un programa 
que pueda emitir y recibir como 
radioleletipo. La única alternativa 
es el paso a otro lenguaje compila¬ 
do, más rápido, o el recurso al có¬ 
digo máquina.» 



Existen varios programas cons¬ 
truidos para permitir la comunica¬ 
ción Morse, pero casi ninguno in¬ 
cluye, como el de TYT, un Inter fa¬ 
ce que conecte el Spectrum con el 
emisor, por lo que son sólo aptos 
para «manítas». 

Un ejemplo es el programa 
«Emisión/Recepción MORSE», 
distribuido por Ventamatic. Este 
programa utiliza como entrada y 
salida del Spectrum las tomas EAR 
y MIC, respectivamente. Por ello, 
deberemos ser nosotros quienes 
ajustemos los niveles de señal (es¬ 
pecialmente en la recepción) y co¬ 
nectemos correctamente el Spec¬ 
trum a nuestro Emisor. El ordena¬ 
dor suena simultáneamente a la 
emisión de la señal, por lo que este 
programa puede ser útil para facili¬ 
tar el aprendizaje de este código. 
Resulta fácil familiarizarse con la 
«música» de las letras y las palabas 
si el ordenador las transcribe a me¬ 
dida que pulsamos las teclas. 

El programa dispone de un menú 
con quince opciones, que permiten 
recibir texto, que se acumula en 
una memoria intermedia de alrede¬ 
dor de 5K. Este texto se puede sa¬ 
car por pantalla o impresora. Otra 
opción permite el borrado de la me¬ 
moria de recepción. 

En cuanto a la emisión, el pro¬ 
grama permite almacenar textos de 
uso frecuente (por ejemplo los indi¬ 
cativos de llamada), hasta 3.000 
caracteres en mensajes de 255 ca¬ 
racteres cada uno, e introducirlos 
después en el texto. También dis¬ 
pone de opciones para preparar un 
mensaje, con posibilidad de añadir 
fragmentos archivados, o emitirlo, 
así como de borrado, tanto de los 
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textos archivados como del buffer 
de emisión (de 2.500 caracteres). 
La visualización de lós textos ar¬ 
chivados es también posible, así 
como su grabación y carga a cas¬ 
sette. 

Un modo de emisión directa, en 
el que el programa emitirá según 
vayamos pulsando las tedas, com¬ 
pleta el menú. En este modo tam¬ 
bién se puede insertar un texto ar¬ 
chivado, previamente, pulsando 
«*» y después el nombre bajo el 
que se archivó el fragmento. 

Un problema habitual de los pro¬ 
gramas de Morse es que el código 
no especifica la velocidad de trans¬ 
misión en términos absolutos, sino 
solo la relación entre la duración 
del punto y la de la raya. Por ello 
todo programa que pretenda recibir 
correctamente debe lener una se¬ 
lección de velocidad, o bien un me¬ 
canismo automático de ajuste. El 
programa de Vcntarriiitic tolera di¬ 
ferencias de un 40 por ciento en la 
velocidad ajustada y permite la se¬ 


lección de velocidad desde el tecla¬ 
do. 

Al conjunto de caracteres del 
Spectrum se le han añadido unos 
cuantos, bien, como la Ñ, propios 
del idioma español, bien signos es¬ 
peciales como LL (llamada), CP 
(comprendido), ER (error), FT (fin 
de transmisión), ES (espera) y FR 
(fin de recepción). 

El problema principal del pro¬ 
grama es que no se realiza ninguna 
pausa entre las letras y, en modo de 
emisión directa, resulta muy fácil 
que los caracteres «breves», como 
la «e», nos salgan repetidos. Ha¬ 
brá que dedicar algún tiempo a co¬ 
gerle el tacto, sobre todo en modo 
de emisión directa, ya que corre¬ 
mos el peligro de llenar de errores 
nuestras transmisiones. 

Aparte de estos pequeños pro¬ 
blemas, que harán necesario un pe¬ 
riodo de adaptación para sacar su 
máximo rendimiento al programa, 
puede resultar útil para los que 
quieran iniciarse en este mundo. 
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A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


Núm. 1 *250 pts 

Cómo usar el microdrive/Progra¬ 
in ación Basic/Ampliación Basteare/ 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante masca- 
ras/Protección del softwa re/Si ntoni- 
ce su Spectrum/Programas. 


Núm, 2*250 pts. 

Gráficos profesi.onales/Desplaza¬ 
miento pixel a pixel/Utiíización de 
rutinas/Construcción del ínterface 
qentronícs/Programas de utilidad pa¬ 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasword/Inte ría oes para impresoras/ 
Programas. 


Núm. 3-250 pts. 

Novedades sonimag '84/Ampliandoel 
Basic/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len¬ 
guaje Forth/Archivos en microdrive/ 
Programación de un interface de mn- 
presora/Prog ra mas. 


Núm. 4 * 250 pts. 

De profesión: programador/Consola 
para el Spectrum/Comparación códi¬ 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascñl/Pro¬ 
gramas. 


Núm. 6 *250 pts. 

Representación de funciones/Todos 
los caminos conducen a la RQM/Jue- 
gos/Pascal/Construcción de un lápiz 
Óptico/Programas de gestión. El SiTI/ 
Logo: tortugas para todos/lnterrup- 
ciones del Z-80/Programas. 


Núm. 5*250 pts. 

Floppys para Speotrum/Diseño asis¬ 
tido por ordenador/64 Caracteres por 
línea/Juego de la vid a/Pascal/Así ha¬ 
cemos las portadas/Control de eva¬ 
luad ones/Prog ramas 
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DISPONEMOS DE TAPAS ESPECIALES PARA 



SUS EJEMPLARES DE 

ÜMtaspectrun 


Para hacer su pedido, rellene este cupón HOY MISMO 
i y envíelo a: 

MiasDectnin Brav ° Murm, zu 

- r TeL 733 96 62 - 28020 MADRID 


Ruego me envíen los siguientes ejemplares atrasados de TODGS- 
PECTRUM ......... al precio de 250 pts. 

Por favor envíenme ... tapas para 3a encuadernación de mis 

ejemplares de TGDG5PECTRUM, ai precio de 600 pts más gastos de envío 
El importe lo abonaré 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO □ AMERICAN EXPRESS □ VISA O INTERBANK 

Número de mi tarjeta: 11111117111 111 1111111 TTTTT 1 

Fecha de caducidad . ..... Firma 


NOMBRE . 
DIRECCION 
CIUDAD ... 
PROVINCIA 


(cada tapa es para 6 ejemplares) 




























E ntre los periféricos concebi¬ 
dos para facilitar el acceso 
del usuario a las posibilida¬ 
des del ordenador, el lápiz 
óptico permite combinar la 
rapidez de selección en toda la su¬ 
perficie de la pantalla con un pre¬ 
cio muy competitivo. Para los lec¬ 
tores que no tuvieran la paciencia 
'o los conocimientos necesarios 
para realizar el montaje del lápiz 


presentando en nuestros números 
6 y 7, realizamos un análisis de los 
lápices presentes en el mercado es¬ 
pañol. Comenzamos con el diseña¬ 
do por Pin Soft. En futuros núme¬ 
ros hablaremos de otros lápices co¬ 
mercializados en España. 

El paquete está formado por el 
lápiz, que viene dotado de un pe¬ 
queño amplificador cuya salida se 
conecta a la entrada EAR del 


Spectrum, un cassette con un pro¬ 
grama de dibujo y un pequeño ma¬ 
nual de instrucciones. Para la ali¬ 
mentación del lápiz es necesaria 
una pila de 9V. 

Ya con la pila en posición, po¬ 
demos pasar a cargar el programa 
de dibujo. Al acabar, deberemos 
sacar el cable del cassette de la 
toma EAR y sustituirlo por el ca¬ 
ble del lápiz. Esta operación se 
debe hacer con rapidez, ya que si 
no el programa puede confundir 
los ruidos de fondo del cassette con 
señales del lápiz. 


Ajustando la señal 

Según el folleto de instruccio¬ 
nes, que, como ya es costumbre en 
todo tipo de programas y periféri¬ 
cos, no aclara demasiado las posi¬ 
bles dudas que pueda tener quien 
no conoce el producto, llegados a 
este punto deberemos hacer una 
operación de corrección de posi¬ 
bles desajustes entre lápiz y panta¬ 
lla. Para realizarla pulsaremos 
ENTER, y una vez aparezca la op¬ 
ción, colocaremos la punta del lá¬ 
piz en el centro de la pantalla. El 
resultado debería ser la aparición 
de una línea horizontal que debe 
ser alineada con el lápiz utilizando 
las teclas «6» y «7». Nosotros sólo 
conseguimos llevar a cabo esta 
operación en algunas ocasiones (en 
otras la línea aparecía sólo unos 
instantes o aparecía el menú direc¬ 
tamente). Este tipo de problemas 
puede ser frecuente mientras nos 
adaptamos al programa dada su 
complejidad y la ya mencionada 
falta de información. 

De todas formas se debe prestar 
especial atención al ajuste de bri¬ 
llo, color y contraste de la TV, 
pues de esto depende la sensibili¬ 
dad del lápiz y por lo tanto su faci¬ 
lidad de manejo. Si el brillo es ex¬ 
cesivo o falta luminosidad el lápiz 
no localizará los puntos y por lo 
tanto su funcionamento no será el 
correcto. 

Para trabajar sobre colores oscu¬ 
ros deberemos hacerlo con el brillo 
al máximo (aun así es preferible di- 
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negro con una zona blanca donde 
se encuentra la información refe¬ 
rente a las opciones que estamos 
utilizando, a saber: 


Opción Dibujo Brillo Papel 
utilizada y/o color 


Dibujar Tipo de Flash Tinta 
/en o ver escala 


Antes de empezar a dibujar de¬ 
beremos hacer un borrado de toda 
la pantalla; lo conseguiremos con 
CAPS SHIFT + C. De esta manera 
definiremos los atributos, que en 
principio serán papel blanco y tin¬ 
ta negra. 

Cuando acerquemos el lápiz a la 
pantalla aparecerá 
rrido horizontal; este 
por el sistema que utiliza el laptz 
para determinar su posición en 
pantalla. Si éste no aparece debe¬ 
remos ajustar los controles de la 
TV. Cuando el lápiz localice un 
punto aparecerá una cruz señalan¬ 
do; sólo entonces estará en condi¬ 
ciones de ejecutar un comando. Al 
principio resulta difícil controlar 
el punto exacto que queremos sea 
localizado, pero con la práctica y 
la insustituible ayuda de el coman¬ 
do «ZOOM» {con cuatro tamaños 
posibles) terminan los problemas. 
Se echa en falta alguna señal que 
nos avise cuando el programa ha 
«aceptado» una orden {algo como 
un BEEP o un cambio en el color 
del BORDER), ya que en algunos 
comandos esta deficiencia puede 
resultar verdaderamente molesta. 


Opciones y comandos 


En la esquina que nos indica la 
opción utilizada podremos intro¬ 
ducir 13 comandos distintos (ver 
tabla adjunta) de los que merece 
resaltar la opción FILL, que en 
esta versión han traducido literal¬ 
mente como «RELLENA». Basta¬ 
rá situar el lápiz dentro de lo que 
queramos rellenar y pulsar EN- 
TER. La subrutina es verdadera¬ 
mente rápida, por lo que es reco¬ 
mendable salvar la pantalla antes 
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bujar primero sin utilizar colores, 
y una vez terminado el dibujo co¬ 
lorearlo). 

En el menú aparte de la opción 
de dibujo están las de carga y ar¬ 
chivo de cinta y microdrive de 
pantallas y gráficos definidos por 
el usuario. Para bajar al BASIC, 
con el fin de borrar archivos de mi- 
crodrive, hacer catálogos o ejecu¬ 
tar cualquier orden, bastará con 
hacer BREAR, y RUN para volver- 
ai menú. 

í A dibujar! 

B U na vez tomemos la opción 
«Dibujar» la pantalla aparecerá en 



de utilizar este comando, ya que si 
dejamos alguna zona sin delimitar 
la tinta se extenderá irreversible¬ 
mente; como contrapartida a este 
récord de velocidad está el que en 
superficies irregulares deje fre¬ 
cuentemente zonas o puntos sin 
rellenar, por lo que no es raro que 
tengamos que repetir la operación 
varias veces. 

Otro de los comandos dignos de 
comentar es «Círculo» ya que tra¬ 
za las circunferencias de un modo 
verdaderamente original: ¡empe¬ 
zando a la vez por cuatro puntos!, 
con la ventaja frente a la rutina de 
la ROM de que no dará mensaje de 
error si nos salimos de pantalla, 
aunque eso sí, en los de pequeño 
tamaño es corriente que deje algún 
punto sin acabar, por lo que no es 
aconsejable usar la opción de relle¬ 
nado sin revisarlo previamente. 

Para ejecutar este comando debe¬ 
remos marcar con el lápiz {y EN¬ 
TE R) el centro y un punto de la 
circunferencia. 

Para dibujar normalmente tene¬ 
mos el comando «LIBRE», con el 
que tendremos que pulsar ENTER ■ 
para empezar a dibujar y separar el ■ 
lápiz para dejarlo. El numero de 
muestras que toma el lápiz antes 
de abandonar se puede controlar 
parando el programa con BREAR 
y haciendo PORE 50265,n (donde 
n es dicho número de muestras), lo 
cual con un número entre 25 y 50 
facilitará mucho las cosas. Aun asi 
no es tan sencillo utilizar este co¬ 
mando como pueda parecer; al 
principio hacen falta grandes dosis 
de paciencia para concluir un di¬ 
bujo de esta manera, aunque con la 
práctica las cosas acaban funcio¬ 
nando relativamente bien. 

Bajo el lugar donde aparecer el 
comando en curso se nos indica si 
estamos o no en OVER 1. Este 
programa permite también que los 
comandos que ejecutemos afecten 
sólo a los atributos (COLOR), sólo 
a la tinta (DIBUJO) o a ambos 
(COLOR y DIBUJO), lo cual pue¬ 
de sernos de mucha utilidad una 
vez nos acostumbremos a su uso. 

Para borrar tendremos que inter¬ 
cambiar tinta y papel (pulsando 














«c» lo conseguiremos siempre que 
no estemos en opción de DIBUJO 
y COLOR) y tras dibujar lo que 
Queramos borrar repetir la opera¬ 
ción. Podemos asimismo definir 
una zona determinada de la panta¬ 
lla de forma que los comandos se 
ejecuten exclusivamente en ella, 
así como almacenar esa zona en 
memoria y colocar posteriormente 
en cualquier parte de la pantalla 
tantas copias como se desee. Lo 
primero puede ser útil cuando 
queramos por ejemplo borrar sólo 
una parte de la pantalla o cambiar 
(Sus atributos (definiendo la zona, 
Ja opción de sólo DIBUJO o sólo 
COLOR y ejecutando el borrado). 

Los scrolls los podemos conse¬ 
guir con SYMBOL SHIFT + 5. 6, 
7 y 8, y serán carácter a carácter si 
afectan al color y pixel a pixel si 
afectan sólo al dibujo. Asimismo 


podemos hallar la imagen simétri¬ 
ca de la que hayamos dibujado, 
tanto con eje vertical como hori¬ 
zontal. Disponemos también de la 
posibilidad de archivar dos panta¬ 
llas en memoria y volver a recupe¬ 
rarlas con la tecla «t» y CAPS 
SHIFT, así como algunas otras fa¬ 
cilidades típicas de todos los pro¬ 
gramas de dibujo. 


¿Un periférico más? 

Se tarda más tiempo de lo habi¬ 
tual en acostumbrarse al uso de to¬ 
dos estos comandos y sacarles todo 
el partido, pero llegados a este 
punto nos encontramos con un 
programa realmente potente, aun¬ 
que si queremos hacer dibujos de 
una cierta complejidad es conve¬ 
niente compensar las pequeñas de¬ 
ficiencias que éste pueda tener con 
un programa clásico, ya que el uso 
de los cursores se echa muy en fal¬ 
ta. Asimismo ei modo texto es 
muy limitado en relación con 


La pantalla que acompaña a este 
artículo ha sido realizada casi en su 
totalidad con el empleo de este pe¬ 
riférico y su programa de dibqjo. 
El sistema utilizado fue el siguien¬ 
te. 

Comenzamos haciendo una cir¬ 
cunferencia con la opción CIRCU¬ 
LO que, más tarde, el comando 
RELLENA se encargó de comple¬ 
tar. Después utilizamos TRIAN¬ 
GULO, combinada con EN OVER 
para que la figura quedara sobre el 
círculo; para el cubo bastó utilizar 
CAJA en dos ocasiones, y termi¬ 
nar uniendo los vértices con LI¬ 
NEA SOLA. El texto fue obra de 
la opción LINEA CONTINUA 
(que traza rectas, cada vez que pul¬ 
samos ENTER, entre el último 
punto dibujado y el que en ese mo¬ 
mento haya localizado) y de nuevo 
RELLENA. En numerosas ocasio- 


nes hubo que corregir los pequeños 
fallos que se nos «colaban», para lo 
cual teníamos que intercambiar 
tinta y papel y, con ayuda del 
ZOOM dibujar sobre lo que que¬ 
ríamos borrar. La firma fue intro¬ 
ducida desde microdrive en forma 
de caracteres definidos por el usua¬ 
rio . (gracias a una opción del 



menú), y más tarde pasada a panta¬ 
lla por el modo TEXTO CON 
UDGs. 

Cuando el dibujo estaba prácti¬ 
camente finalizado algo comenzó a 
fallar: el lápiz no localizaba los 
puntos o lo hacía con mucha difi¬ 
cultad. Probamos con una pantalla 
vacía y todo volvió a funcionar a la 
perfección. Tras probar todo tipo 
de variaciones en el ajuste de brilo, 
contraste y color del monitor hubo 
que optar por terminar de definir 
algunos atributos desde un progra¬ 
ma de dibujo «clásico» (con empleo 
de cursor). 

Salvo éste no tuvimos ningún 
problema importante, teniendo en 
cuenta que era la primera vez que 
utilizábamos este periférico, y que 
el tiempo empleado no fue superior 
a tres horas, que en este tipo de tra¬ 
bajos no es demasiado tiempo. 

















otros programas de este tipo, aun¬ 
que ello queda compensado con 
las facilidades que puede dar el uso 
de «ventanas» o zonas de pantalla 
por separado. 

Habría sido un detalle por parte 
del fabricante incluir algo de infor¬ 
mación acerca del funcionamiento 
software y hardware de este perifé¬ 
rico, ya que esto podría ser útil 
para utilizarlo en nuestros propios 
programas sin tener que desensam¬ 
blar su código máquina. 

En fin, un periférico más que se 
suma a la ya larga lista de los que 
hacen pasar buenos ratos a quien 
los tome como un juego y puedan 
ser de utilidad para quien pretenda 
fines más serios para su Spectrum, 
sobre todo en el terreno artístico. 

Luis Cala 
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TECLA COM A DO 

Q ... Dibujar (tipo de punto) 

E. ....... . . En oven tipo de punto) 

A »< , Libre (señalar inicio) 

S .- Punto 

D *. - *. * *.,. *, Triángulo (señalar vérti¬ 

ces) 

F ..*, Caja (rectágukf) 

G. . . . Línea horizontal (seña¬ 

lar extremos) 

H _. _ _ Línea vertical (id.) 

J .. Linea sola (id,) 

K .. 1 incas con punto de fuga 

(id.) 

L . * . * Línea continua (id.) 

CAPSSHIFT + S — Círculo 

R ..... Texto 

CAPSSHITÍ + R . . .. Texto con UDGs 

Z. Rellenar 

X _ Simetría vertical 

CAPS SHIFT + X.... Simetría horizontal 

C.. BorraT la pantalla 

CAPS SHIFT + C_ Intercambiar papel-tinta 

B ..*, ■ Solo color 

N .. Solo dibujo (sin color) 

M . . . . Dibujo + color 


TABLA DE COMANDOS 

T ..i»..»....».»..,. Guardar pantalla en me¬ 
moria 

CAPSSHIFT + T *. »♦ 


(1 a 7 

CAPS SHIFT+0 a 7 


Recuperar pantalla de 
memoria 

Seleccionar color de tinta 
Seleccionar color de pa¬ 
pel 

9. ....... . Brillo Ü ó I (intercam¬ 

bia) 

CAPS SHIFT + 9 .... Flash «ó 1 (intercambia) 

Y.. Cuadricula normal 

CA PS SHIFT + Y_ Cuadrícula sin colores 

SIMBOL SHIFT + 5 

a 8 .. Scroll de pantalla 

P............ Ampliar (zoom) 

O.,. Reducir (zoom) 

U , „ ..Centrar la parte amplia- 


V. 

8 y luego V , 


8 . 

CAPS SHIFT + 8 . 

CAPS SHIFT + A. 
CAPS SHIFT + V , 


Definir zona 

Guardar zona en memo¬ 
ria 

Reproducir zona 
Quitar y poner ventana 
de información 
Cambiar color dei borde 
Definir bDGs 



SUSCRIBASE 
POR TELEFONO 

♦ más fácil, 

♦ más cómodo, 

♦ más rápido 


Telf. (91) 733 7969 

7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


lodospectrun 


✓ 






























































OFERTA DE SUSCRIPCION 



Te ofrece la posibilidad de suscribirte con unas condiciones 
muy ventajosas para ti: 


1 

2 


Recibir puntualmente, en tu domicilio la publicación 
TODOSPECTRUM que durante 12 meses te proporcionará 
lectura, programas, ayuda, entretenimiento, etc . 

Consigue un práctico regalo: 



Una obra fundamental en la biblioteca 
de los aficionados al Spectrum: 


• Reglas y herí 'amientas del Rasii 

• La técnica de los organigramas . 

• ti fabuloso muruio de tas muimos 

• Variables y « ot/enos. 

• Fuñí iones mu/emane os usuu/es. 


Esta publicación, escrita con es tifo 
ameno y práctico, te ayudará a sacar 
todo el partido posible a tu máquina . 


La opción de ser protagonista. Tú puedes tener una 
participación directa con tus comentarios, programas, 
sugerencias, etc. 


4 Obtener premios importantes con tus programas, y temas 
de interés. 


EN DEFINITIVA , TODO SON VENTAJAS 

No dejes pasar esta oportunidad, suscríbete 

a “TODOSPECTRUM”, cumplimentando hoy mismo el cupón 
de respuesta adjunto. 


lAflACftAC4|SfllH BRAVO MURILLO, 377 - 5 o A 
FraV«l|iwlll HHI TELEFONO: 733 74 13/47/63/97 28020 MADRID 



















Joystick 

■ ' \ on este montaje poc 

construir un interface 

^ Ínwíi-L- n nrnn4 t;kL 





A pesar de los exámenes de junio, Gusánez y todos sus 
amigos «manitas» trabajan afanosamente en el montaje de 
un joystick casero que publicamos el mes pasado. Para que 
no se queden sin conectarlo a su Spectrum por falta de 
interface , os presentamos un conector para joystick tipo 
Kempston, que os resultará sencillo de montar y muy útil 
para mejorar las puntuaciones en los juegos del verano. Y 
si no os atrevéis con la palanca, tranquilos: el Interface 
funciona con cualquier joystick stándard. 


on este montaje podemos 
construir un interface para 
joystick compatible Kemps¬ 
ton, que es el más usado por la 
mayoría de los juegos disponibles 
en el mercado. 

El circuito es de gran sencillez, 
consistiendo únicamente en un 
buffet- triestado (IC 1), y un par de 
puertas lógicas {IC 2), que st en¬ 
cargan de permitir el funciona¬ 
miento del buffer, cuando la CPU 
lo ordene. 

Para ello han de estar en estado 
bajo (lógica negativa) simultánea¬ 
mente la línea de IORQ {requeri¬ 
miento de entrada salida), la línea 
del bus de direcciones A 5, que e r 
usada como chip select, y la línea 
READ, es decir, lectura. 

Con todo ello, el buffer que es el 
que se encarga de conectar el orde¬ 
nador con los contactos del joy¬ 
stick, se pondrá en funcionamien¬ 
to, ya que a través de las puertas 




























lógicas habremos activado las pati¬ 
llas del chip enable del buffer, 
que van en lógica negativa, separa¬ 
das en dos grupos, un enable para 
los cuatro primeros bits y otro para 
los cuatro restantes bits. 

Una instrucción IN provoca una 
activación de Jas líneas de: 

1. READ, por ser una instruc¬ 
ción de lectura 

2, 10RQ, por ser una instruc¬ 
ción de entrada salida. 

Si, además, la instrucción IN ha 


estado bajo, a masa a través de re¬ 
sistencias de 10 K ohmios y pasa¬ 
rán a estado alío, al conectar al 
joy-stick los pulsadores. 

Veamos un poco más detallada¬ 
mente lo que ocurre al efectuar 
una instrucción LET A=IN N, en 
donde X es un número que en bi¬ 
nario tendrá 16 cifras, cada una de 
las cuales va asociada a una de las 
16 líneas del bus de direcciones 
AO, Al,., A15. 

El número N en binario ha de 


El IN podrá, pues, tener como 
N, cualquier número del tipo: 

1*1*1 x | x | x | xj x fx 1 x j x [ o | x | x | x | x | y | 

AI5 A5 AO 

en donde las cifras X pueden estar, 
indistintamente, a 0 ó a 1, aunque 
conviene que estén a 1, para no in¬ 
terferir con otros periféricos, como 
por ejemplo la impresora. 

Como, además, la instrucción 
IN activa las líneas 10RQ y 





1 Cara superior del circuito impreso en donde se insertarán Jos componentes del 
circuito. Escala 1:1. 

2. Cara inferior deJ circuito impreso. Escala 1:1. 

3. Situación de los componentes en la placa, sobre la cura superior. Todas Las resis¬ 
tencias son de 10 KÍ3. El condensador, es de 100 nF. 

Esquema teórico del interface 

NOTA.—No se ha incluido el condensador de 100 nF que va en paralelo con la ali¬ 
mentación ni la resistencia de 10 KQque pone en estado alto las dos puertas lógicas 
no utilizadas dele hip 74LS32. 


sido direccionada de tal forma que 
ponga en estado bajo (activación), 
la línea A5 del bus de direcciona- 
miento de memoria, entonces el 
buffer abandona el estado de alta 
impedancia y permite la conexión 
del bus de dalos con los interrupto¬ 
res del joystick. En este momento 
la instrucción IN lee el bus de da¬ 
tos, con la codificación que en ese 
momento impongan los pulsado¬ 
res del joystic. 

Las líneas de entrada del buffer 
están conectadas normalmente en 


ser tal que la línea A5 esté a cero. 
Entonces es cuando se producirá 
un chip enable (permiso para que 
se ponga en funcionamiento el 
chipie 1). 


DT 

06 

05 

04 

03 

DZ 

01 

DO 


DERECHA 

IZQUIERDA 

ARRISA 

ABAJO 

Disparo 


Asignación de lüá bits del bus de datas a las posi¬ 
ciones de la palanca. 


READ, el buffer se activa y la va¬ 
riable A de la instrucción LET 
A=IN N, toma el valor que en este 
momento tenga el bus de datos. 

El bus de datos está asignado, 
' como se indica en la Figura 5, de tal 
forma que si en el momento de leer 
el bus de datos, estamos apretando 
el pulsador de derecha y el de fue¬ 
go, el bus tendrá el valoren binario 
0 0 0 1 0 0 0 1 y por tanto, la varia¬ 
ble A tomará el valor 0 0 0 10 0 0 
!, que en decimal es A=17, infor¬ 
mación que será tratada en el pro- 














































































































grama, para el cual estemos utili¬ 
zando el interface. 

Montaje 

El montaje carece de especial di¬ 
ficultad si prestamos atención en 
colocar los chips en su posición 
correcta, y soldamos el conector de 
expansión correctamente, colo¬ 
cando el slot en su debida posi¬ 
ción. Mucho cuidado en esto, si no 
queremos ver la ULA de nuestro 
Speetn ,r ~: p?.sar a mejor vida. El 
slot va en el lugar en donde falta 
una conexión al soldar el conector 
a la placa de circuito impreso. 

La placa ha sido diseñada en po¬ 
sición horizontal para evitamos así 
el tener que efectuar un número de 
taladros abrumador, aunque tam¬ 
bién puede ponerse la placa en po¬ 
sición vertical, la cual, una vez ins¬ 
talada en una caja de plástico, to- 


10 REM ESTE PROGRAMA LEE EL V 
ALOE DEL BUS DE DATOS AL EFECTUA 
R UNA INSTRUCCION 1N. 

15 LEI BmÚ 

20 LET A-1N BIN 11011111 
25 IF Ek' >á THEN PE I NT AT 10,0 

4 1' M 

30 LET 9-A 
40 FRINT AT 10*0|B 
50 GO TO 20 



Lista 

t Vc componentes 


— ICI 74LS244 

— ÍC2 74LS32 

— Un Conector ¡nteríace 

— Un Conector expansión Bus 

— 5 resistencias 10 Ki?1/4 watio 

— Un condensador J00 nF 

— Circuito impreso 


mará un aspecto más profesional 
(ver fotografía). 

Para probar el montaje, podre¬ 
mos introducir el programa cuyo 
listado incluyo, el cual imprimirá 
el número que la instrucción IN 
lea en cada momento en el bus de 
datos. 


Alberto Piedra 



GUSANEZ 


P¡r C'TomJ 


n. mo MEN to^,-° - FW - TE wHi** Yo me voy 

PEL 1C| O5o5 B£EPS, A/f TO- DE MEN05.... CCWTARÍ U¡ 5 70 Mfc VOY 


MAS TRJSTÉ PE Mi VIDA, ke 
DE SÉPWfiHE. Q£ Ti 
OuflAfdTE Tono uw mm ... 


CA * fU5 T£a ^ S DE 5UA- DAS... NO TE OLVIDALE 
VE (JOMA Y MUCHO MEMOS „ 

-„ APIOS SPECTíJUM (3UERIP0, 

GUIPATE MUCHO- 


A PASAR UN MES 
CON EL Ql, 


VEAS í 
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Programas a medida 


Un ordenador, por muy bue¬ 
no que sea, necesita buen soft¬ 
ware que lo acompañe. Los pro¬ 
gramas de Psion son muy com¬ 
pletos, pero no suficientes. 
Conscientes de ello Sinclair 
Store ha puesto al frente del AL 
a Juan Solsona. A pesar de su 
juventud (17 años), lleva ya cin¬ 
co años con los ordenadores y es 
un enamorado del QL. 

En los últimos meses Sinclair 
Store ha ampliado sus opera¬ 
ciones a otros ordenadores, 
principalmente MSX, sin olvi¬ 
dar a la familia Sinclair ni al 
QL; como nos decía Juan: «Lle¬ 


vamos cinco meses con el QL, 
principalmente con la contabi¬ 
lidad, a través de la base de da¬ 
tos del Archive. También esta¬ 
mos trabajando con el Easel, ya 
que los gráficos sólo se obtienen 
con impresoras compatibles Ep¬ 
son. También realizamos pro¬ 
gramas personalizados para uso 
concreto, como la topografía.» 

En el plano personal, nos 
confiesa sus preferencias por el 
QL: «Eso lo tengo muy claro. 
Me compraré un QL y modifi¬ 
caré los programas de Psion 
para adaptarlos a mis necesida¬ 
des.» 


¿Para 
cuándo 
el QL? 


Parece que Sinclair haya 
dado un cursillo de marke¬ 
ting a sus distribuidores en 
el extranjero. La comercia¬ 
lización de la versión «lo¬ 
cal» de la máquina, con una 
versión mejorada del 
QDOS, mensajes en caste¬ 
llano y teclado con acceso a 
los acentos y caracteres es¬ 
peciales, fue anunciada en 
el Informal, a mediados del 
mes de abril. 

Algo parecido hizo Sin¬ 
clair al anunciar la nueva 
máquina casi seis meses an¬ 
tes de tener una versión 
provisional en la calle. Se¬ 
gún todos los analistas, la 
combinación de un retraso 
en las expectativas de los 
compradores con una pri¬ 
mera versión comercial de¬ 
fectuosa han sido responsa¬ 
bles del mal resultado ini¬ 
cia) de esta máquina, que 
sólo mejora ahora, dos años 
después del primer anuncio. 

Casi dos meses han pasa¬ 
do desde el Informat, aún 
no se han visto en España 
los nuevos ordenadores y el 
anuncio de su llegada defi¬ 
nitiva se retrasa de semana 
en semana. Esperamos que, 
en el momento de leer estas 
líneas, el fallo se haya en¬ 
mendado. También espera¬ 
mos que no cunda el ejem¬ 
plo y estas técnicas de mar¬ 
keting tan audaces no se si¬ 
gan aplicando. 


QL2 









Gestión 

Integrada 

Alsi Comercial, que ya ha de¬ 
sarrollado programas de aplica¬ 
ción para Spectrum, anuncia su 
programa de gestión integrada 
para QL. Su programa permite 
el manejo de ficheros de clientes 
y artículos y facilita la realiza¬ 
ción de facturas, pedidos, ofer¬ 
tas y albaranes. Basta señalar el 
código de un artículo para que 
nombre y precio sean añadidos 
automáticamente a nuestro do¬ 
cumento. Un programa que fa¬ 
cilita el uso del QL en pequeñas 
empresas y comercios, sin nece¬ 
sidad de realizar programas es¬ 
pecíficos mediante -ARCHIVE. 

Esperamos presentar en un 
próximo número el análisis 
completo de este programa, y 
también que otras casas sigan el 
ejemplo de Alsi y desarrollen 
otros productos para el usuario 
profesional. 



QL en la 

Universidad 

de 

Strathclyde 

(Glasgow) 


La Universidad de Strath¬ 
clyde ha adquirido 7.000 
QLs para la consecución de 
un ambicioso plan que viene 
a ser algo así como «Un estu¬ 
diante... un QL». Los orde¬ 
nadores se conectarán a un 
miniordenador VAX. Esta 
Universidad se caracteriza 
por sus avanzados estudios 
en materia de inteligencia ar¬ 
tificial. 

Lógicamente, Sinclair se 


muestra particularmente or¬ 
gulloso por la decisión y no 
menos generoso: 250.000 li¬ 
bras es la cantidad destinada 
a apoyar el proyecto (aproxi¬ 
madamente, 50 millones de 
pesetas). 


Comunicaciones vía QCOM 


Con el QL todo parecen ser 
siglas más o menos inteligibles. 
QCOM es la denominación que 
reciben los tres periféricos que 
permiten la conexión del QL 
con el exterior, ya sea una base 
de datos o distintos ordenado¬ 
res: QL-Interface, QL-Call y 
QL-Modem. 

QL-lnterface permite la co¬ 
nexión con «grandes ordenado¬ 


res», pudiendo transmitir y re¬ 
cibir a una velocidad entre 75 y 
9.600 baudios. 

QL-Call une el ordenador a la 
línea telefónica, convirtiendo a 
su ordenador en una «pequeña 
centra! telefónica». 

Finalmente, QL-Modem es 
un auténtico modem. Trabaja 
con una velocidad de transmi¬ 
sión 75/1.200 ó 1.200/1.200. 


t 
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APLICACION 









Máquina 
de escribir 
inteEgente 

En la prehistoria de los ordenadores, allá 
por los 60, ningún profesional de la 
informática habría considerado 
interesante «desperdiciar» la potencia de 
un ordenador en una tarea tan poco 
importante como redactar o editar un 
texto. 
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S in embargo, 
hoy en día los 
procesadores de 
texto son quizá los pro¬ 
gramas más utilizados; 
por su carácter general: 
¿Quién no necesita 
preparar un informe, 
escribir una carta, etcé¬ 
tera? 

Con los procesado¬ 
res de texto desapare¬ 
cen los borradores in¬ 
terminables, así como 
el proceso final de «pa¬ 
sar a limpio»: todo el 
trabajo se realiza sobre 
la pantalla, borrar no 
es ningún problema, se 
pierde el «miedo al 
error» ganando en ve¬ 
locidad y creatividad. 
La posibilidad de reali¬ 
zar cambios en cual¬ 
quier estadio del desa¬ 
rrollo de un documen¬ 
to añade otra compo¬ 
nente de libertad a 
nuestro trabajo. 

Existen dos grandes 
grupos de procesadores 
de texto: los que traba¬ 
jan en un formato 
adaptado al ordenador 
y después «dan forma» 
al documento de cara a 
la impresora, y los que 
muestran, dentro de lo 
posible, el texto como 
aparecerá en su forma 
final. 

QUILL, escribir 
sobre la pantalla 

El procesador de tex¬ 
to del QL, pertenece a 
este segundo tipo. Los 
distintos tipos de letra 
y la marginacíón de tas 
líneas se presentan en 
su forma final, de ma¬ 
nera que la edición es 
más fácil, ya que los 
cambios introducidos 
se visualizan inmedia¬ 
tamente en la pantalla. 
La presentación se rea¬ 
liza con 40, 64 ó 80 ca¬ 
racteres por línea, de¬ 
biendo elegir una u 


otra según las caracte¬ 
rísticas de nuestra tele¬ 
visión; con monitor se 
trabaja bien a 80 carac¬ 
teres. Con televisión la 
máquina comienza por 
defecto a 64, pero si la 
calidad deja que desear 
se puede utilizar el dis- 
píay de 40 caracteres. 
El programa admite lí¬ 
neas de hasta 160 ca¬ 
racteres, más que sufi¬ 
ciente para cualquier 
aplicación. 

Si nuestro documen¬ 
to es más ancho que la 
pantalla, el programa 
nos mostrará una 
«ventana», que cubre 


la mayor zona posible 
del documento, siem¬ 
pre alrededor del cur¬ 
sor, aunque, según in¬ 
troducimos texto, el 
programa lo lista -en 
pantalla con el ancho 
disponible; al pulsar 
alguna tecla de movi¬ 
miento de cursor se 
realiza el ensamblado 
definitivo del texto. 
Esto reduce el desagra¬ 
dable scroll lateral (que 
realizará automática¬ 
mente el programa 
cada vez que salgamos 
de la ventana visible) al 
mínimo, al permitir¬ 
nos ver en la pantalla 


el texto que estemos te¬ 
cleando. 

La ventana superior, 
de manera análoga a 
los demás programas 
de Psion, muestra las 
acciones que ejecuta¬ 
rán las teclas de fun¬ 
ción, así como infor¬ 
mación general sobre 
el funcionamiento del 
programa, desapare¬ 
ciendo si pulsamos F2, 
con lo que nos deja una 
presentación con 21 lí¬ 
nea útiles en la panta¬ 
lla. En el formato ini¬ 
cial son 17 las líneas de 
texto que se nos ense¬ 
ñan. 

Esta información se 
complementa, como 
los otros programas, 
con dos líneas de infor¬ 
mación en la parte in¬ 
ferior de la pantalla. 
Los comandos se intro¬ 
ducen por elección en 
un menú, pulsando la 
tecla correspondiente a 
la inicia! del comando, 
tras F3. 

Lentitud excesiva 
en las primeras 
versiones 

La tecla F1 sirve 
para obtener ayuda re¬ 
lativa a los comandos y 
, modos de trabajo del 
programa, y es uno de 
los casos en que el pro¬ 
grama carga informa¬ 
ción del Microdrive. 
En las primeras versio¬ 
nes de QUILL el códi¬ 
go no esta optimizado, 
por lo que el programa 
resulta lento, debido al 
constante acceso a Mi¬ 
crodrive, tanto para al¬ 
macenar el documento 
como para cargar over- 
lays, cada vez que pe¬ 
dimos la ejecución de 
un comando no resi¬ 
dente en memoria. 

En la versión 2 este 
problema ha sido arre¬ 
glado, ya que el pro- 
] grama ha sido optimi¬ 
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zado, quedando sitio 
suficiente para todos 
los comandos. Incluso 
el almacenamiento del 
documento en micro- 
drive sólo es necesario 
si el tamaño de nuestro 
documento sobrepasa 
unas mil quinientas 
palabras con 128K, 
pudiéndose trabajar en 
memoria en caso de ser 
menor. 

Trabajar 
en castellano 
sin problemas 

Otra característica 
interesante de la últi¬ 
ma versión es la dispo¬ 
sición de un programa 
BASIC que permite 
cambiar la correspon¬ 
dencia de caracteres de 
cara a la impresora; 
unido a la posibilidad 
de utilizar los caracte¬ 
res extendidos del QL, 
hace esta versión útil 
para e. usuario espa¬ 
ñol, ya que las vocales 
acentuadas y la Ñ no 
platearán más proble¬ 
mas con este progra¬ 
ma. El programa per¬ 
mite también modifi¬ 
car los valores por de¬ 
fecto que tomará el 
programa para impri¬ 
mir o almacenar: im¬ 
prescindible para al¬ 
macenamiento en dis- 
ketíe o impresión me¬ 
diante interface Cen¬ 
tronics. 

Los usuarios de ver¬ 
siones anteriores se en¬ 
contrarán en la impo¬ 
sibilidad de utilizar 
diskettes como medio 
de almacenamiento, 
además de verse obli¬ 
gados a imprimir en 
una impresora conec¬ 
tada al puerto serie. La 
configuración del pro¬ 
grama puede modifi¬ 
carse para imprimir 
subíndices, superíndi- 
ces, negrita y subraya¬ 
do, faltando sólo la 



cursiva para que el 
programa cubra las po¬ 
sibilidades habituales 
de las impresoras ma- 
triciales. Los tipos de 
letra citados se pueden 
insertar en cualquier 
texto con facilidad, y 
mezclarse libremente 
en la misma línea. 

Tan sencillo como 
escribir a máquina 

T ras este breve repa¬ 
so a las características 
generales del progra¬ 
ma, vemos su funcio¬ 
namiento. Una vez 
cargado podemos co¬ 
menzar a teclear texto. 
El programa tiene dos 
modos de trabajo: el 
modo de INSERCION, 
en el que se trabaja ha¬ 
bitualmente, inserta el 
texto introducido en la 
posición del cursor. El 
modo de SOBREIM- 
PRESION cambia los 
caracteres presentes en 


la posición del cursor 
por los que vayamos 
introduciendo. Este se¬ 
gundo modo es más 
lento que el anterior, y 
se recomienda no utili¬ 
zarlo excepto en pe¬ 
queñas correcciones. 
El texto se introduce 
tecleando en la posi¬ 
ción deseada, 

Si queremos intro¬ 
ducir un comando de¬ 
bemos pulsar F3 y a 
continuación elegir en 
el menú de comandos. 
Los comandos se re¬ 
parten en tres menús, 
un menú principal, eí 
alternativo al que se 
accede pulsando O 
(otros), y un menú de 
ficheros (F en el menú 
alternativo). El con¬ 
junto de comandos es 
satisfactorio, aunque 
su modo de operación 
no sea siempre el más 
cómodo. Por ejemplo, 
el comando de borrado 
o copia de bloques no 


permite retroceder una 
vez se ha comenzado a 
señalar el párrafo. Así, 
si nos «pasamos», no 
habrá más opción que 
pulsar ESCAPE y vol¬ 
ver a comenzar. El co¬ 
mando SAVE nos pre¬ 
gunta al acabar si que¬ 
remos seguir con el 
mismo documento, y si 
la respuesta es positi¬ 
va, nos envía al co¬ 
mienzo, cuando lo 
normal seria que nos 
dejara en la posición 
en que decidimos sal¬ 
var nuestro documen¬ 
to. Varios defectos 
como el indicado, ade¬ 
más de una sospechosa 
tendencia a «colgarse», 
empañan las primeras 
versiones de este pro¬ 
grama. 

En la versión 2 se 
han corregido muchos 
de estos errores, y el 
programa resulta defi¬ 
nitivamente «profesio¬ 
nal», 
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léelas de función 
programaMes 


Algunos ordenado¬ 
res, como el QL, dis¬ 
ponen de una serie de 
teclas llamadas «de 
función», Estas teclas 
suelen servir para 
simplificar el manejo 
de los programas co¬ 
merciales. Pero, y eso 
es importante, tam¬ 
bién suele existir la 
posibilidad de progra¬ 
mar una cadena de 
caracteres para que 
sea ejecutada por el 
ordenador cada vez 
que pulsemos esa te¬ 
cla. 

Las teclas de fun¬ 
ción programables 
harán su aparición en 
cuanto introduzcáis el 
programa que os pre¬ 
sentamos. Escrito en 
código máquina, y 
con su propio carga¬ 
dor en BASIC, no 
hace falta ensambla¬ 
dor para introducirlo 
en la máquina. 

El QDOS, sistema 
operativo del QL, per¬ 
mite extender con fa¬ 
cilidad el BASIC de la 
máquina siempre 
desde Código máqui¬ 
na. Nuestro programa 
le añade a la lista de 
procedimientos resi¬ 
dentes en la máquina 
uno llamado «tecla», 
con dos argumentos: 
un número y una ca¬ 
dena de caracteres, 
separados por una 
coma. Si, por ejemplo 
pulsamos 

TECLA 1, 

’ , CLS''8iCHR$ (10} 


el ordenador borrará 
la pantalla cada vez 
que pulsemos F1. La 
concatenación de 
CHR$ (10) es necesa¬ 
ria: en caso contrario, 
el ordenador escribirá 
en la parte inferior de 
la pantalla CLS y se 
quedará esperando 
que pulsemos ENTER. 
Esta otra manera de 
utilizar el nuevo pro¬ 
cedimiento es muy 
útil. Por ejemplo: 
TECLA 2, "LOAD 
MDV1J' nos dejará 


preparado el ordena¬ 
dor para que, pulsan¬ 
do F2 y el nombre de 
nuestro programa, 
podamos cargar cual¬ 
quier programa en 
memoria. 

Recomendamos 
salvar el programa en 
microdrive después 
de teclearlo y antes 
de intentar ejecutar. 
El programa irá impri¬ 
miendo en pantalla 
cada línea de DATA 
que «pokee» correc¬ 
tamente. Si aparecie¬ 


ra algún error hay que 
detener el programa 
(CNTRL y SPACE) y 
repasar la linea inco¬ 
rrecta. Si no da nin¬ 
gún error, se puede 
proceder a probarlo. 
El programa BASIC 2 
proporciona algunos 
ejemplos de su uso, 
que esperamos os sea 
útil. 

Para acabar, quere¬ 
mos señalar que esta 
función se puede inhi¬ 
bir mediante la pulsa¬ 
ción simultánea de 
CNTRL y CAPS 
LOCK, lo que evita 
problemas si carga¬ 
mos programas que 
utilicen las teclas de 
función después de 
haberlas definido me- 


Programa B \SIC1 


100 a=RESPR(7Ü6)iRESTÜRE 
110 FQR i=0 TO 299 STEP 20 
120 READ a* 

130 prueba=0 

140 FÜR j=l TO 40 STEP 2 
ISO temp=convía# i j TD j + 1)) 

160 POKE a+l+INTCj/2>,temp 
170 prueba-prueba+temp 
ISO END POR j 

190 READ prueba!sIF pruebaOpruebal THEN 
'200 PR1NT "Falla el 'checksunT en la 1 in¡ea330+i/2 
210 ELSE 

220 PRINT 'Linea '?330+i/2; J correcta' 

230 END IF 

240 END FÜR i 

250 FQR 1=300 TO 705 

260 POKE a+i ,0 

270 END FOR i 

280 CALL a 

290 INPUT 'Quieres salvar el codígo maquina como bytes?'sa$ 
300 IF a = OR a$ U ) = ' S ' THEN 
310 SBYTES mdvl_p+prág_cde,a l 706 

320 PRINT 'El programa se carga con a~respr(706>: 

' lbytes mdvl^p-f prog_cde, as cal I a 

330 DATA 11 43FAOO1A347801104E9241FA002043FA00242149 " , 1562 
340 DATA "0004701C4E414E750Q0100BG055445434G41Q0OQ", 9B9 
350 DATA "000000000000000000000000247900028040226A 16 1 503 
360 DATA ,Í 0008204AD1 FCOOOOOO10B3C86604226A00045389 11 , 1440 
370 DATA " 47FAOOC241FA00D2121167260C0100E2660E12BC 11 f 1777 
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380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


DATA "00E1740141FA00A8B5504E7543FAQOAO4A51660A", 
DATA “B2136708588BB1CB66F64E757600362B000249FA 11 , 
DAT A "009CD9C37B00381C53446BEA121C30780QE04E90”, 
DAT A “4AB066DE51CCFFF24E753478011Ó4E92665E70F1", 
DATA "0043000266567200740034369800123698020401-' , 
DATA “00300C0100016D400C0100056E3A530152420242", 
DATA "FFFED3C2343698020C42005Q6E26363C0052C2C3", 
"DATA "41FA0036D1C130C24A42671252420242FFFE5342", 
DATA "30F69804548951CAFFF870004É750000E8000000", 
DATA “EC0OOO52FO0O0OA4F4O0OOF6F8OOO14800000000", 
DEFine FuNction conv(aí) 

LOCa 1 ni 

n1=C0DF(a*(LEN(aí) i )-48 
IF ni>9 í nl“nÍ-7 
IF LEN(ai)=1 THEN 
RETurn ni 
ELSE 

RETurn n1+ló*conv(ai(1 TO LEN(aí)-l)) 

END IF 

END DEFine conv 


2025 

1990 

1924 

2471 

908 

721 

2065 

2148 

1996 

1533 


Programa BASIC 2 


290 TECLA 1,'els#0:els#1ic1s#2'&CHR*(10> 
300 TECLA 2,'load radvl_' 

310 TECLA 3 , ' 11 st ' StCHRí (10) 

320 TECLA 4, modo 4'&CHR*(1Q) 

330 TECLA 5,'made 8'gíCHRÍdO) 


diante nuestro pro¬ 
grama. Una nueva 
pulsación volverá a 
dejar las cosas como 
estaban. Si queremos 
eliminar alguna de las 
teclas, basta con asig¬ 
narle una cadena va- 
cía ( ). 

NOTA TECNICA: El 
programa trabaja en¬ 
cadenando una rutina 
en código máquina al 
programa que lee el 
teclado a cada inte¬ 
rrupción. Cuando de¬ 
tecta la aparición de 
alguno de los caracte¬ 
res correspondientes, 
insertar el comando 
programado. El pro¬ 
grama inicial se en¬ 
carga asimismo de 
ampliar el BASIC con 
un procedimiento 
(TECLA) que almace¬ 
na la cadena de ca¬ 
racteres que se le 
pasa como segundo 
parámetro en el espa¬ 
cio asignado a la tecla 
indicada por el primer 
parámetro. 
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C1J = Te encuentras en una 
a$C2) =estancia amplia, pe- 
a*(3) -ro vacia !Desconfía! 1 
ai (45 —Ten cuidado y medita 
a$C5> —tus decisiones 
a$(6) «Piensa que cualquier 
ai (7) -error sera fatal 
a$(9) «Sosiégate pues la 
ai (9) «búsqueda sera larga 
af(10) -y peligrosa 
ai(i 15 -Tus primeros pasos 
a$ (12) =han sido certeros 
ai(13) -Fortuna de novato o 
ai(14) «experiencia del 
ai (15) ^maestro? 
ai(16) -Estate prevenido 
ai(17) =pero no temas a lo 
ai(1Q) «desconocido 
aiíl?) -Solo la inexperien- 
a$C20> =cia puede explicar 
ai(215 «tan temprana 
ai(22) -derrota 
ai (23) =Aun es' pronto y las 
ai(24) «esperanzas aun están 
ai(25) «altas. Mas quiza 
ai (26) -pronto caigan en 
ai (27) —el olvido 
ai (20) =Tus pasos te llevan 
ai(29) —por el camino co¬ 
sí (30) =rrectü; pero es fa— 
ai(31) —ci1 perderse 
atí325 «comienzas a. deseen- 
ai(33) =der unas escaleras 
ai(34) =cuya hediondo olor 


ai(35) -indica peligro 
ai(36) «No es fácil seguir 
ai(37) =1 os caminos de Dios 
ai(38) -Si lo haces limpia 
ai(39) «tu alma de pecado 
ai(40) «Algún hechizo te 
ai(41) =ha protegido de tu 
ai(42) -fin, pero quisa no 
ai(43) ™1o pueda todo, 
ai(44) «Demuestras un gran 
ai(45) -valor siguiendo este 
ai(46) «caminos paro quizas 
ai(47) =tu valentía sea 
ai(48) «tu perdición* 
ai(49) -Un nuevo camino 
ai(50) K que te aleja de la 
ai(51) «santidad y del peca- 
ai í 52) = dO , 

ai(535 «Has penetrado en un 
ai ( 54) -oscuro pasadizo don¬ 
as (55) «de una -fuerte co** 
at(56) =rri ente te golpea, 
ai(57) -Intentas rodear el 
ai(58) -peligro pero piensa 
ai(59) -que el Mal esta 
ai(60? -en todas partes* 
ai(61) -Acaso no temes al 
ai(62) =potro de la Inquisi- 
ai(63) "cion? 

ai(64) «Si has llegado hasta 
ai(65) =aqui no desaprove- 
ai(66> «ches la oportunidad 
ai(67) «que se te presentara 
aiíóB) «El aire comienza a 
ai (69) «aumentar, su -fuerza 
ai(70? -te tira al 
ai(71) =suelo y te arrastra 



La 

Aria 


Hace mucho tiempo, tanto que 
se ha perdido en el recuerdo, los 
herreros del dios de la noche traba¬ 
jaron durante meses en la realiza¬ 
ción de una joya que se llamaría 
Arla, en honor de la esposa del 
dios. 

1 Durante siglos, Arla, fue la luz 


Los caracteres gráficos subrayados corres- 
pon den a notas gráficas. 

a$(72) = hacia un pozo sin 
ai(73) afondo, 
ai(74) -Has entrado en un 
ai(75) -pasillo dondo las 
ai(76) «salidas se multipli- 
ai(77) -can, Ten cuidado 
ai(78) -una de ellas sera tu 
ai(79) «fin, 

ai(SO) «Llevas horas andando 
aiíBl) «Empiezas a tener sed 
ai(82) -y a estar cansado 
ai (83) =F'iensa } pues a veces 
ai (84) *=ei camino mas corto 
ai(85) «se hace el mas largo 
ai(86) -Piensa que la sed te 
ai (87) =esta agotando,, no es 
ai(88) -fácil que pases tQ“ 
ai(B9) =das las pruebas si 
ai<905 -te vas agotando 
ai(9l) -Ten cuidado pues el 
ai(925 «cansancio puede 
ai(935 «ocultarte el ver- 
ai(94) =dadero camino 
ai(955 -Otros antes que tu 
ai(96) -murieron de sed en 
ai(97) «la búsqueda de ARLA 
ai(9B) =Un aire fétido 
ai(99) «te vas agotando* 
ai(100) «en la que te encuen 
aiílOi) «tras 

ai i 102) «Presagio de muerte 
ai(103) «Es pronto todavía 
ai (104) =pero vas por buen 
ai(105) «camino, 
ai(106) «Sigue asi y 1 0 “ 
ai(107) -graras tu fin 
ai(108) =E1 pasadizo esta 
















del reino de la noche, pero un día 
fue robada por Valar, dios de las 
dos caras. Desde entonces ha per¬ 
manecido en su castillo, de donde 
nadie pudo recuperarla. La leyen¬ 
da dice que quién lo logre recibirá 
del dios de la noche dádivas y teso¬ 
ros de valor incalculable. 

Para intentarlo debes internarte 
en el castillo de Valar. Allí te per¬ 
derás en pasillos donde se te irán 
dando pistas que facilitarán tu mi¬ 
sión. Si eres hábil (y tienes suerte) 
irás llegando a diversas estancias; 
en algunas de ellas podrás coger 
cosas o realizar diversos actos que 
te ayudarán a recuperar a Arla. 

Para trasladarte a través de las 


distintas salidas que se te indiquen 
deberás pulsar las teclas 5(izqda.), 
7(Adel.). 8(Dcha.) y después EN- 
TER. 

Cuando quieras realizar algún 
acto {coger, abrir, etc.) debes utili¬ 
zar una expresión del tipo «quiero 
+ verbo + artículo + sustantivo»; 
por ejemplo, “quiero coger la lla¬ 
ve”. 

Debes escribir todo en minúscu¬ 
las, salvo cuando se trate de un 
nombre propio. En ese caso lo 
pondrás en mayúsculas, sin tener 
que usar la expresión anterior. 

Si tras atravesar la verja no eres 
capaz de contestar a la pregunta 
que se te hará puedes escribir “no 


lo sé”,con lo que volverás al prin¬ 
cipio del juego. 

En el listado observarás la apari¬ 
ción de letras, sin aparente sentido, 
en instrucciones PRINT. Estas le¬ 
tras corresponden a un carácter 
gráfico y aparecen subrayadas en 
el listado. 

Una vez copiado todo el progra¬ 
ma debes grabarlo con SAVE 
“nombre” LINE 1. Posteriormen¬ 
te, y usando el programa 2, debes 
copiar y grabar la matriz en la que 
están incluidos todos los textos del 
programa. Esta matriz la debes 
grabar inmediatamente después 
del programa. 
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D 


aí <1093 

aii110i 
aS(ill) 
at<112) 
aiÍ113) 
a 1 4 ) 

aií115) 
ai U16> 
ai (117) 
afíllS; 

ai í119) 
af(120) 
a$(121) 
ai i 122) 
af í123) 
ai(124) 
ai(125) 
aií í 26 ) 
ait127) 
ai(128) 
aiC129) 
ai(130) 
ai(131) 
ai<132) 
ai(133> 
aií134) 
ai(135) 
ai(136) 
ai(137) 
aií138) 
ai(139) 
aii140) 
ai(1415 
aÍ(H2) 
ai(143) 
ai(144) 
ai(145) 


-oscura y es difícil 
^guiarse. 

-Tus vacilantes pasos 
—te han llevado al 

i ü 

=Una fuente preside 
-este patio 
-Tu cuerpü na ha sido 
-capaz de resistir 
=sin agua 

=Tu irresponsabi1 i dad 
-ha. causado tu muerte 
-En esta ocasión los 
-hadas te han sido 
-propicios y tu sed 
-se ha calmado 
-Los trovadores en- 
= tunan canez ion es que 
= 1 legan a ti a través 
-de los corredores 
=Esta alto en el 
=caminci no te aleja 
“de proií irnos peligros 
=Dos caminos tienes 
^procura ser di es¬ 
otro en tu decisión 
=Estuviste demási a— 
=do tiempo en la ne- 
-tanda atmosfera de 


ai ( 146) -preparado? 
ai(147) -Pronto volverás a 
ai (143) =caer en las manas de 
ai (149) —VALAR. 
ai(150) =Debes tomar tu pri- 
ai(151> -mera decisión 
ai(152) -Que camino toma- 
ai (153) -ras? 
aií154) -Esperamos que con 
ai(155) =su luz se ilumine 
ai (156) = tu camino. 

af(157) -Tres símbolos tienes 
ai(158) -ante ti; La oración 
ai(15?) -La lucha y el estu- 
afilóü) =dic. Cual escoges? 
ai(161) -La oración no te 
ai (162) del peligro 

ai (163) -de la INQUISICION 
ai(164) -Quiza tu elección 
ai(165) =te salve de ciertos 

... „ /.. j i jgf ¡4^fwaa 


¡ mm 


% L , a 

Í KSqÉ 

§11 

1^1 


1 


l 




I 


ai (166) =pel i groe pero ahora 
ai(167) -Esta elección te 
afí168) = acere a a tu destino 
ai(169) — fin al¬ 
ai <170? -Tienes unos instan™ 
a$(17í) -tes para orar, 
ai(172) =Gue tu alma se 
ai(173) ^reconforte con la 
ai(174) -plegaria 
ai<175) -sus preguntas 
ai (176) ^Esta escajera se 
ai(177) -hunde en los solanos 
ai (179) = del castillo. Ten 

ai(17?) -cuidado, puede ser 
ai(180) ™tu muerte, 
ai(181) -Te has dejado enga™ 
ai(182) =nar por las malignas 
ai(183? =artes de VALAR, 
ai(184) -Tu aescuido te supo- 
ai (IBS) -ne la muerte en una 
afí136) -lóbrega mazmorra 
ai(187) -del Castillo, 
ai(188) =Has llegado al salan 
aií189) -No te entretengas en 
ai(190) -cerner pues a la vis- 
ai (191) -ta tienes un tesoro 
af í. 192) =mas preciado, 
ai(193) =Cuidala pues solo 
ai(194) =con ella podras lie- 


—la Hechicería. 



ai(195) 

~gar a tu destino 

=Tu cuerpo no lo ha 

Debes tomar tu pri¬ 


af(196) 

=Roeas horas te 

-podido resistir y 

mera decisión 


ai(197) 

-quedan en esta 

-has caído en puertas 

calino toma - 

rss? 


ai(193) 

-mansión, donde la 

=de tu destino 

SS Li das : Tzq * fldet. 

v .; v y;v?4® 

ai(199) 

=nuerte es su Reina 

=Has elegido el cami- 


íílls 

ai(200) 

-En esta estancia 

-no de la Hag i a 


• m. 

aí(201) 

“se guarda la llave 

=Estas realmente 

itry 

ni í f¿ 5«... 4 * ,• acr», vy> H 


ai(202) 

=que te conducirá 
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aS i 203 ) 
aí (204 > 
a$(2Ü5> 
aS(206) 
as(207) 
a*(208> 
aí (209) 
a*(210) 
as(211> 
aS(212) 
ai(213) 
aSÍ2I4) 
aS(215) 
aí(216) 
aS(217) 
ai (218) 
a $ í 219) 
ai(220) 
at(221) 
aí(222) 
ai (223) 
aS(224) 


— hasta ARLA 
«La oscuridad te 
-esconde de tus 
«enemigos pera te 
-oculta algo muy 
=preciado 
«Has encontrado el 
«pergamino de Vmir 
=solo con su ayuda 
= 1 legaras hasta ARLA 
-Llegaste a la Sala 
-del Mago. Sus hechi- 
=zos pueden ayudarte 
=pero.también matarte 
=Solo si lo usas 
«correctamente, este 
-hechizo te.facili- 
-tara el camino. 
«Pocos hombres han 
«llegado hasta aquí 
=Nd te equivoques a 
= 1 as puertas de ARLA 



a*(225) 
a$(226) 
aS(227) 
a$(223 í 
aS(229) 


«Como portador del 
=hechízo de Byrleist 
=esta barrera se le™ 
=vanta ante ti 
—Tus desvelos han si — 


a$ (230 > 
*$(231) 
as(232) 
ai<233> 
aS (234) 
aS(235) 
al(236) 
alÍ237) 
ai(238) 
aS(239) 
al(240) 
aí(241) 
ai(242) 
aS(243 > 
aS(244) 
aS(245) 
a S í 2 46) 
aS(247) 
aS(248) 
af(249) 
aS(250) 
ai(251) 


-do vanos pues salo 
=con la ayuda de la 
-hechicería habrías 
-sido capaz de supe- 
-rar esta barrera* 

—Cogiste el camino 
-erraneo. Tus pasos 
=te han traído al e;t- 
—terí or del Castillo 
—y te es imposible 
=volver al interior 
«Has llegado a I as 
-puertas de tu 
«destina final 
=Sin embargo te aueda 
=por pasar una prueba 
«Cual es el nombre 
-del creador de ARLA? 
=ARLA, joya del poder 
-luminoso» fue creada 
=por GIWSARD dios 
=de la noche 


PROGRAMA 1 


1 DIM «*<300,20) 

3 LOAD "a" DATA a*O 

7 PAPER 7: CLS : BOEDER 7 

8 PRINT FLASH 1;AT 10,5;"ESP 
ERA UN MOMENTO" 

9 DIM i(50): DIM a(50): DIM d 
(50): DIM p < 50) : DIM -f <36) : DIM 
s (50) 

10 RESTORE 20: F0R n=l T0 50» 
READ q: LET i(n)«q: NEXT n 

20 DATA 3,O,O,O,0,0, 0 ,0,0,0,17 
,0,0,0, 19, 20,0,0,21,22,0,0,0,0,0 
, 0 , 0,30 

22 DATA 0,31,0,0,0,0,0,0,0,0,0 
,1,0,17,0,31,33,0,0,0,0,0 

30 RESTORE 40: FDR n=l TD 50: 
READ q: LET aín)=q: NEXT n 

40 DATA 4,4,4,6,7,0,41,11,12,1 
3, 14,49, 15, 18,20,42,39,0,50,23,3 
9,24,25,28,43,31,31,29 

42 DATA 0,44,33,45,46,0,48,0,0 
,0,26,2,9,20,28,32,34,35,0,0,19, 
0 

50 RESTDRE 60: FDR n=l TD 50: 
READ q: LET p(n)-q: NEXT n 

60 DATA 1,4,8,11,16,19,23,28,3 
2,36,40,44,49,53,57,61,64,68,74, 
80,83,86,9i,95,98,103,108,111 
62 DATA 116,121,125,129,132,13 
5,143,0,0,0,3100,0,1030,2220,279 
0, 1955,2460,2609,324.0,2920, 1380, 
1700 


70 RESTORE 80: FDR n=l TD 50: 
READ q: LET d<n)=q: NEXT n 

80 DATA 5,5,0,7,0,0,0,12,13,16 
,0,15,0,0,0,0,21,0,20,0,22,0,17, 
43,0,0,28,0 

82 DATA 0,0,45,0,47,0,0,0,0,0, 
27,0,10,0,0,0,0,47,O,0,0,0 

90 RESTDRE 100: POR n=‘l TO 50: 
READ q: LET s<n>=q: NEXT n 
100 DATA 7000,7500,7250,7500,72 
50,8500,7250,7500,7500,7500, 7150 
,7500,7250,7250,7150,7150,7500, 8 
500 

102 DATA 7000,7150,7500,7250,75 
00,7500,7250,7250,7500, 7150,8500 
,7150,7500,7250,7500,8500,7250 
104 DATA O,0,0,3204,995,1350,24 
32,2895,2183,2574,2754,3450,3030 
,1617,1935 

110 RESTDRE 120: FOR n=l TO 35: 
READ q: LET P(n)=q: NEXT n 
120 DATA 3,7,10,15,IB,22,27,31, 
35,39,43,48.52,56,60,63,67,73,79 
,82,85,90,94,97,102,107,110,115, 
120,124,128,131,134,142,146 
200 BEÉP 0.8,1 
300 GG SUB 4100 
500 REM CASTILLO 
505 BORDER 7 

510 PAPER 7: CLS : LET bech=0 
525 LET rest=4815: LET tot=5: G 
0 SUB 3599 


















tomos 


afí252) 
af(253> 
(254) 
ai(255) 
ai(256) 
ai(257) 
aiC 253) 
ai(259) 
aií260) 
ai(261) 
ai(262) 
ai<263) 
ai(264) 
ai (265) 
ai(266) 
ai (267) 
aií260) 
ai(269) 
ai(270) 

ai(271) 
ai(272) 
ai(273 > 


-Ante ti esta el 
=Castillo de Valar 
=en donde has de l u- 
=char por ARLA 
-El olor a peligra 
-domina la estancia. 
“Bal rápido pues loe 
^enemigos no siempre 
-son mortales 
=Un vampiro se 
=abalanza sobre ti 
=piliándote despre^ 
“venido. 

-La cruz que partas 
=te ha salvado 
“pues su visión 
=le ha hecho huir 
-Tu descuido te ha 
-costado la-vida* 
=Quiza otro caballero 
-lleve a cabo la 
=mision en la que tu 



ai(27?) 
aií280) 
ai(281) 
aií282) 
ai(283) 
ai ( 284) 
ai(285) 
ai(286) 
ai(287) 
ai ( 2SS > 
ai(28?) 
ai(290) 
ai(291) 
ai(2?2> 
af(293) 
aií294) 
ai(295) 
ai<296) 
ai(297> 
ai(298) 
aií29? > 
af(300) 


=coger la llave 
“ábrir el baúl 
-coger el hechizo 
-leer el pergamino 
-quiero 

=Todos tus esfuerzos 
-han sido vanos y has 
-caído derrotado ante 
=las artes de VALAR. 
-Otra oportunidad se 
=te presentara* 

= ! ¡Aprovéchala! ! 
=Pocos entre los 11 a- 
-mados hombres han 
-sido capaces de 11e- 
-gar donde tu. 

=Recibe la joya ARLA 
=por la que tanto 
-has luchado y que 
=los designios de 
-los dioses te sean 
-f avorables 


527 INK 1: F0R n=19 T0 27: PRIN 
T AT 4,n; ,, «";AT 5, n; "M" ; AT 6,n;" 
M": NEXT n 

528 INK O 

530 PRINT PAPER ii INK 6; AT 5, 
20;"A R L A" 

535 POR n=19 TD 27: PRINT AT 3, 
n; 11 E" ; AT 7,n;”E": NEXT n 

537 F0R n=3 TD 7: PRINT AT 11,18 
;"E";AT n,2B;"E M : NEXT n 

550 LET S=0 

555 FDR N=41 T0 71: F'LDT INK 4 
;0,N: DRAW INK 4;43+<0.4*<N-41> 
),0: NEXT N 

560 POR N=41 T0 71: PLDT INK 4 
;93-ÍN-41> , N: DRAW INK 4;140+8, 
0: LET S=S-2: NEXT N 

570 FDR N=41 TD 55: PLGT INK 4 
;140;N: DRAW INK 4;115,0: NEXT 
N 

580 LET D=0 


590 F0R N-54 TD 65: F'LDT INK 4 
;150,N; LET D=D+7¡ DRAW INK 4;9 
0-D,0: NEXT N 

600 F0R N=9 TG 12: FDR S=3 TQ 1 
1: PRINT AT N,S;"M" : NEXT S: NEX 

T N 


610 PRINT AT 12, 7; " B" ; AT 10,4;’’ 
C : C CMC C : C : " ; AT 9,3; 11 Pt fí Pt Pi ]~¡ Pi h Pi 11 
615 FDR N—1 TQ 24: PLÜT 70,101+ 
Ns DRAW -37,0: NEXT N 
620 FDR N=9 TQ 22: PLOT N,72s D 


RAW 0,37: PLQT N+B8,72: DRAW 0,3 
7: NEXT N 

630 PRINT AT 8, 1; " aB" ? AT S, 12; " 
RPV'sAT 6,4; " flRflflR ” ; AT 7, 5;'" C|ic” 
640 PRINT AT 4,4; "D" 

650 PLOT 39,140: DRAW 0,-20 
655 LET d=l8 

660 FDR n=252 TD 255: PRINT AT 
d,3:(n>: LET d-d+li NEXT n 
700 PAUSE 200 

740 REM PRIMERA ESTANCIA 

741 LET pap=7 

742 LET cand=0 

745 LET NUM=40: LET CDM=150: LE 
T FIN=153 
760 GO SUB 4170 

880 PLOT 0,64: DRAW 20,20: ->RAW 











































215,0: DRAW 0,80: DRAW -215,0: 
DRAW 0,-80 

890 PLOT 235,84: DRAW 20,-20 
900 PLOT 20,164: DRAW -20,11 
910 PLOT 235,164: DRAW 20,11 
920 PLOT 97,84: DRAW 0,70: DRAW 
60,0: DRAW 0,-70: PLOT 40,84: D 
RAW 0,60: DRAW 35,0: DRAW 0,-60: 

PLOT 178,84: DRAW 0,60: DRAW 35 
,0: DRAW 0,-60 
930 PLOT 127,84: DRAW 0,70 
935 LET restor=4450: LET dat=5 
940 GO SUB 3600 
944 POR n = 10 TO 20 STEP 10 
948 PRINT AT 5,n;» IK" 

950 PRINT AT 6,n; " JL 11 

951 NEXT n 

961 FOR N=3 TO 10 
963 PRINT AT N, 13; " TT 1 ' 

965 PRINT AT N, 17; "TT" 

970 NEXT N 

980 PLOT 130,124: DRAW 0,-4: FL 
OT 131,124: DRAW 0,-4 

990 PLOT 124,124: DRAW 0,-4: PL 
OT 123,124: DRAW 0,-4 

991 PLOT 43,114; DRAW 0,-4: PLO 
T 44,114: DRAW O,-4 

992 PLOT 209,114: DRAW 0,-4: RL 
QT 210,114: DRAW 0,-4 

993 GO TO 5105 

995 PRINT AT 19,3;"Sal i das:Izq. 
Adel.": RANDDMIZE USR 3190 

996 FOR N=1 TO 400 

997 INRUT 5$ 

998 LET tatn=LEN sí 

999 IF Sí="5“ THEN LET NUN=I(4 
0>: GO TO 5300 

1001 IF Sí="7" THEN LET NUM=A<4 
O): GO TD 5300 

1005 IF tam>7 THEN IF sí=aí(2B3 
,1 TO 7)+aí <278,1 TO tam-7) THEN 
GD TD 1015 
1010 NEXT N 

1015 FOR n=154 TO 156: PRINT AT 
20,3;aí(n) : RANDONIZE USR 3190: 
NEXT n 

1016 LET cand=i: GO TO 996 
1030 REM SEGUNDA ESTANCIA 

1035 CLS : LET C0M=157: LET FIN= 
160 

1040 LET pap=7 


1050 GD SUB 4170 
1070 RESTORE 1330 
1080 FOR N=1 TO 61 
1090 READ E,F 

1100 PRINT INK O; AT E,F;‘'S" 

1110 NEXT N 

1112 LET restor-3790: LET dat=13 
1115 GO SUB 3600 

1120 PRINT INK 1 ; AT 4. 15: 11 ftB" 
1130 PRINT INK 1; AT 5. 15: 11 CD" 
1140 PLOT 124,127: DRAW 0,-50: D 
RAW 4,-7: DRAW 4,7: DRAW 0,50 
1150 PRINT AT 5,5;" E" 

1160 PRINT AT 7,3;"E E" 

1170 PRINT AT 11,5;“ E n 

1180 FOR N=1 TD 2: PLOT 42+N,128 

: DRAW 0,-42: PLOT 29,114+N: DRA 

W 28,0: NEXT N 

1190 PRINT AT 7,5;"E" 

1200 PRINT AT 8,24; " -JK FG" 

1210 PRINT AT 9,24; " LM M X" 

1220 PRINT AT 10,23; H 

1230 FOR n=l TO 4; PLOT 18ó+n,92 

: DRAW 46,-29: PLOT 230+n,92: DR 

AW -46,-29; NEXT n 

1260 FOR N=1 TO 60 

1330 DATA 6,0,7,0,8,0,9,0,10,0,1 

I, 0,12,0,13,0,6,10,7,10,8,10,9,1 
O,10,10,i 1,10,12,10,13,10,6,21,7 
,21,8,21,9,21,10,21,11,21,12,21, 
13,21,6,31,7,31,8,31,9,31,10,31, 

II, 31,12,31,13,31 

1340 DATA 6. 1,5,2,4, 3, 3, 4,2,5,3, 
6,4,7,5,8,6,9 

1345 DATA 6,22,5,23,4,24,3,25,2, 
26,3,27,4,28,5,29,6,30 

1346 DATA 6,11,5,12,4,13,3,14,2, 
15,2,16,3,17,4,18,5,19,6,20 

1348 LET espad=l: LET cruz—O 

1349 GO TQ 5105 

1350 FOR N=1 TO 400 

1355 INPUT Sí 

1356 LET TAMALEN Sí 

1358 IF tam>7 THEN IF 3í-aí<283 
,1 TO 7)+aí(275,1 TO TAM-7) THEN 
LET NUM=D(NUM): LET cruz=l: LE 
T 00=161: GO TO 1370 
135? IF tam>7 THEN IF Sí=aí<283 
,1 Tü 7)+aí(276,1 TO TAM-7) THEN 
LET NUM=A íNUM) : LET sspad = l: L 
ET C0=164: GQ T01370 













1360 IF tam>7 THEN IF 3$=aíÍ283 
,1 TO 7)+a$ <277,1 TD TAM-7) THEN 

L.ET NUM—I (NUM) : LET CO=167: GO 
TÜ 1370 

1361 NEXT N 

1370 FDR N=CÜ TO CO+2 
1372 PRINT AT 21,3; ASÍN) 

1374 RANDÜMIZE ÜSR 3190 

1376 NEXT N 

1377 GO TO 5300 
1380 REM ESCALERA 

1390 LET C0M=17ó: LET FÍN=180: C 
LS 


1395 
1400 
1420 
1430 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1513 
| 1515 

1530 


LET pap=7 

GO SUB 4170 

RESTORE 1605 

FDR N=1 TÜ 37: READ A,B 

FOR 5*6 TÜ A 

PRI NT INK O j AT 3. B; "£¿‘ 

PRINT ÜOER 1;AT S-l.Bf" S" 

NEXT S 

PRINT I NK F'AP; AT 5, B; "^S" 
BEEF' 0.01.20 
NEXT N 

LET restor=4530: LET dat=9 
GQ SUB 3600 

PRINT INK O; AT 1,8;" IH— 


1540 PRINT INK O; AT 2, 10; 11 XHggj»" 
1550 PRINT INK O; AT 3. 12; " IHFGE 
H G F G E H G SFQGFF Q & ' 

1560 FOR n-1 TÜ 2 
1565 FOR s-13 TD 31 


1570 PRINT AT n,s;" M' 
1575 NEXT s 
1580 NEXT n 



1600 PRINT AT 11.24; " KLH " 

1605 DATA 7,0,7,i,8,2,7,2,8,3,9, 

4,3,4,9,5,10,6,9,6 
1610 DATA 10,7,11,8,10,8,11,9,12 
, 10 , 11,10 

1615 DATA 12,11,12,12,12,13,12,1 
4, 12,15,12,16,12,17,12,18,12.19, 
12,20,12,21,12,22,12,23.12,24,12 
,25,12,26,12,27,12,28,12,29,12,3 
O,12,31 

1616 GO TO 5105 

1617 F'RINT AT 20,3; " Sal 1 das: Ade 
l.”i RANDOMIZE USR 3190 

1620 FOR n=l TO 400 
1630 INPUT s* 

1640 IF ***"7" THEN LET num=a(n 

um): GO TQ 5300 

1650 NEXT n 

1700 REM MAZMORRA 

1710 LET com-181 í LET fin=187: C 
LS 

1715 LET pap=7 

1720 GD SUB 4170 

1740 LET AU-15 

1750 FOR N=64 TO 175 

1760 IF N<114 THEN LET AU=AU+0. 

2 

1770 IF N>=114 THEN LET AU=AU+0 

.4 

1780 IF N>=134 THEN .LET AU=AU+0 

.6 

1790 LET DIB=(RND*5>+AU 

1800 IF N<164 THEN PLOT 0,N: DR 

AW DIB, Os F'LÜT 255. N: DRAW -DIB, 

O 

1810 IF N> as 164 THEN PLOT O, >4; D 
RAW 255,0 
1820 NEXT N 

1822 LET rest or-4530: LET dat=9 
1825 GG SUB 3600 

1830 PRINT AT 1,2; !I MM— EHFEHF 
FGEHGG F‘ Ff H—T 1 

1840 F'LDT 160,64: DRAW 0,4: DRAW 
-10,0: DRAW 80,0; DRAW Ó,3: DEA 
W -SO,O: DRAW 0,-3; PLOT 220,64: 

DRAW 0,4 

1850 FOR N=1 TO 3 
1860 NEXT N 

1870 FDR X—70 TO 100 3TEP*7 
1SSO FQR N=X TO X+l _ 

1890 PLOT N,114; DRAW 0.20 M 


L5 



























1900 NEXT N: NEXT X 

1920 PRINT INK 1; AT 15, 6; 11 KLM' 1 

1 930 PRINT INK 1 ; AT 12,20; " KLM" 

1932 G0 TO 5105 

1935 50 TO 8500 

1950 REM CHIMENEA 

1955 LET pap=7 

1956 LET com=200: LET fin=203 
1960 IF cand=0 THEN LET com=204 
: LET -fin=208: LET pap=0 

1970 GÜ SUB 4170 
2000 FQR N=9 TO 13 
2010 PRINT AT N, 5; " 

2020 F'RINT AT N, 16; "J" 

2030 NEXT N 

2040 F’RINT AT 8.4:" SSSS.SSSg.SSS:: 
s" 

2050 PLOT 36,110: DRAW 20,56: PL 
□T 139,110: DRAW -20,56 

2051 LET restor=4450: LET dat=5 

2052 GO SUB 3600 

2060 POR N=6 TO 14 BTEP 8 
2070 F'RINT AT 6,N;"XK" 

2080 FFUNT AT 7,N; “ JL" 

2090 NEXT N 

2100 FLOT 177,122: DRAW 33,0: DR 
AW 0,35: DRAW -33,0: DRAW 0,-35 
2110 F'LOT 174,119: DRAW 39,0: DR 
AW 0,41: DRAW -39,0: DRAW 0,-41 
2112 LET restar=4260: LET dat=10 
2115 GO SUB 3600 
2120 F'RINT AT 3,23; " RB_ " 

2130 PRINT AT 4,23; 11 CDE" 

2140 PRINT AT 5.23: 11 FGH" 

2142 LET baúl=0 

2150 FOR N=ll TQ 13 

2160 PRINT AT N, 21 ; 11 NHHMHNN" 

2170 NEXT N 

2172 PRINT AT 11*24; “O" 

2174 F'LOT 167,64: DRAW 0,24: DRA 
W 56,0a DRAW 0,-24: DRAW -56,0 
2176 F'LOT 167,88: DRAW 5,5: DRAW 
46,0: DRAW 5,-5 

2182 GG TO 5105 

2183 PRINT INK 9;AT 20,3;“Sal id 
as:Isq. Adei.”: RANDGMIZE USR 31 
90 

2184 FOR n=l TO 400 

2185 INPUT sí 

2186 LET tam=LEN sí 

2187 IF sí="5" THEN LET num=i<4 


4): GO TO 5300 

2188 IF sí="7" THEN LET num=a(4 
4): GO TO 5300 

2190 IF tam>7 THEN IF 11 ave»1 A 
ND cand=l AND sí=aí(283,1 TO 7)+ 
aí<280,1 TQ tatn~7> THEN LET bau 
1=1: GO TO 2210 
2192 NEXT n 

2210 INK 9: FOR n=209 TO 212: PR 
I NT AT 21,3; aí C n ) : RA.NDÜM I ZE USR 
3190: NEXT n 
2212 GO TO 2184 
2220 REM CAPILLA 

2230 LET CÜM=170: LET FIN=174: L 
ET RAF=7 

2240 GO SUB 4170 
2260 PLÜT 50,64: DRAW 0,5: DRAW 
157,0: DRAW 0,-5: PLOT 50,68: DR 
AW 7,4: DRAW 143,0: DRAW 7,-4 
2270 PLOT 57,73: DRAW 0,5: DRAW 
143,0: DRAW 0,-5: PLOT 56,78: DR 
AW 7,4: DRAW 131,0: DRAW 7,-4 
2280 PLOT 64,82: DRAW 0,5: DRAW 
129,0: DRAW 0,-5: PLOT ¿4,37: DR 
AW 7,4: DRAW 116,0: DRAW 7,-4 
2290 LET *um=0: FOR n=l TO 2: PL 
OT 22+aum,64: DRAW 0,3: DRAW 11, 
O: DRAW 0,-3: PLOT 25+aum,ó7: DR 
AW 0,42: DRAW 6,0: DRAW 0,-42 
2300 PLOT 20+aum,109: DRAW 15,0: 

DRAW 0,2: DRAW -15,0: DRAW 0,-2 
2310 LET aum=200: NEXT n 
2315 LET restor=4450: LET dat=5 
2325 GO SUB 3600 
2330 FOR N=3 TD 28 STEP 25 
































2340 PRINT INK 2;AT 6 ,N;" 0 " 

2350 PRINT INK 2;AT 7,W 5 “ R" 

2360 NEXT N 

2370 FOR n=l TO 9: IF n<3 OR n>5 

THEN PRINT AT n,16;"I** 

2390 NEXT n 

2390 PRINT AT 4,13;"* M MT 
2430 GO TG 5105 

2432 PRINT AT 20,3}"Sal idas:Izq. 
Adel."¡ RANDOMIZE USR 3190 

2433 FOR n=l TO 400 

2434 INPUT sí 

2436 IF «$="5" THEN LET num=i(4 
2): GQ TO 5300 

2438 IF THEN LET num=a(4 

2): GO TO 5300 
2440 NEXT n 

2449 STOP 

2450 REM HECHICERO 

2460 LET comí=213: LET -fin=216: L 
ET PAF’=7 

2470 GO SUB 4170 

2490 PLOT 20,103: DRAW 120,0: DR¬ 
AM 5,-38: DRAW.-130,0: DRAW 5,38 
2492 FOR N=1 TO 3 
2500 PLOT 125,127—N: DRAW 100,0 
2510 PLOT 125,143-n: DRAW 75,0 
2520 NEXT N 

2525 LET restor=4660; LET dat=12 
2530 GO SUB 3600 

2550 PRINT INK 1 5 AT 7,3j” CD flB " 
2560 PRINT INK 1 ; AT B,3; W EF" ; I 
NK 1 ; " GK NO" 

2565 PRINT AT 2, 16} "O" 

2567 PRINT AT 3,16}"R "; INK 3;" 

U "i INK 5; "NO NO 11 
2570 PRINT AT 5,16; INK 3;“J ; 
INK 5; " NO "; INK 4j " J ■_] INK 6 
j " NO " 

2572 60 TO 5105 

2574 PRINT AT 19,3;"Sal i das:Izq. 
Adel.": RANDOMIZE USR 3190 

2575 FOR n = l TO 400 

2576 INPUT sí 

2578 LET tam-LEN sí 

2580 IF sí="5 M THEN LET num»I(4 

5): GO TO 5300 

25B2 IF si="7" THEN LET num=A(4 
5): GO TO 5300 

2584 IF tam>7 THEN IF sí=aí(283 



,1 TO 7>+aí(281,1 TO tam- 7 ) THEN 
LET hech=l: GO TO 2600 
2586 NEXT n 

2600 FOR n-217 TO 220: PRINT AT 
20,3;aí<n): RANDOMIZE ÜSR 3190: 
NEXT n 

2602 GO TO 2576 

2608 STOP 

2609 REM ESCALERA REAL 

2610 LET com=221: LET -Fin=224: L 
ET PAP-7: GO SUB 4170 

2615 LET restor=3960: LET dat =7 
2620 GO SUB 3600 
2630 LET VERTIO 


2640 FOR N=2 TO 30 STEP 2 
2650 PRINT AT VER,N;"a’' 

2660 PRINT AT VER+ 1 ,N;" B" 

2670 PRINT AT VER+2,N;" c" 

2680 IF N<20 THEN PRINT AT VER+ 
3, N; " 5 5g. " 

2690 IF N>20 THEN PRINT AT VER+ 
3, N-2; 11 £55" 


2700 IF N< 1 0 THEN LET VER®VER -1 
2710 IF N>20 THEN LET VER=VER +1 
2720 NEXT N 


2730 FOR N =1 TO 3: PLOT 17,93+N: 

DRAW 65,32: DRAW 99,0: DRAW 65, 
-32: NEXT N 

2740 PRINT AT 3,4;"DE";AT 3,26:" 
DE" 


2750 PRINT AT 4,4; 11 FG¡" ; AT 4, 26;" 

FG' 1 


2751 PLOT 107,104: DRAW 0,63: DR 
AW 48,0: DRAW 0,-65: PLOT 110,10 
4: DRAW 0,61: DRAW 42,0: DRAW O, 
-63 

2753 GO TO 5105 

2754 PRINT AT 19,3;"Salidas: Ade 
1. Deha.": RANDOMIZE USR 3190 

2755 FOR r»=l TO 400 
2757 INPUT sí 

2759 LET tam=LEN sí 

2761 IF sí*"?" THEN LET num=A(4 

6 ): GO TO 5300 

2763 IF si=" 8 " THEN LET num-D(4 
6 ): GO TO 5300 
2765 NEXT n 
2779 STOP 


2780 REM CRIPTA 
2790 LET PAP=7: LET com=256: 
fin=260 


LET 

















2800 Gü SUB 4170 

2810 LET PX =30: LET PY=79 

2820 POR N=1 TD 2 

2830 FLDT PX,PY: DRAW 0,75: DRAW 
40,0: DRAW 0,-75: DRAW -40,0: D 
RAW 5,5: DRAW 30,0: DRAW 0,65: D 
RAW -30,0: DRAW 0,-65: PLOT PX,P 
Y+75: DRAW 5,-5: PLOT PX+40,FY+7 
5: DRAW -5,-5: PLÜT PX+40,PY: DR 
AW -5,5 

2840 FOR S=1 TO 3: PLOT PX+18+S, 
PY+63: DRAW 0,-30: PLOT PX+10,FY 
+50+B: DRAW 20,0: NEXT S 
2850 LET PX=190: LET PY=89 
2860 NEXT N 

2870 PLOT 124,69: DRAW -24,0: DR 
AW 0,7: PLOT 100,88: DRAW 0,57: 
DRAW 14,0: PLOT 126,145: DRAW 11 
,0 

2880 DRAW 0,-4: PLOT 136,69: DRA 
W 4,0: DRAW 0,15: PLOT 103,76; D 
RAW 0,-4: DRAW 17,0: PLOT 136,71 
: DRAW 2,0: DRAW 0,7: PLOT 113,1 
42: DRAW -10,0: DRAW 0,-41 

2890 PLOT 96,77: DRAW 39,-10: DR 
AW 19,70: DRAW -39,10: DRAW -19, 
-70: DRAW 5,4: DRAW 32,-9: DRAW 
17,62: DRAW -32,9: DRAW -17,-62 

2891 FOR S=1 TO 3: PLOT 131+S,13 
1¡ DRAW -10,-30: PLOT 120,124+S: 

DRAW 20,-6: NEXT S 

2892 LET in=261: LET ter=264 

2893 60 TO 5105 

2895 PAUSE 80: FOR n=in TO ter 

2896 PRINT AT 21,3;a$(n): RANDQM 
IZE USR 3190 

2904 NEXT n 

2905 FOR n=l TO 80: NEXT n 

2906 IF cruz=l THEN LET in=265: 
LET ter=268 

2907 IF cruz =0 THEN LET in=269: 
LET ter=274 

2910 FOR n=in TO ter 

2911 PRINT AT 2i,3;a$<n>: RANDOli 
IZE USR 3190 

2912 NEXT n 


2920 REM VERJA 

2930 CLS : LET PAP=7 

2935 LET restor=4070s LET dat=2 

2940 GO SUB 3600 

2950 FOR N=G TO 13 

2965 BEEP 0.03,-40 

2980 PRINT AT N, O; 11 SSSSSSSShhhhh 

flflflflHHHflHññS 535 SS 5 S" 

3000 NEXT N 

3021 IF hech=0 THEN LET d=0: FQ 
R n=229 TO 234: PRINT AT 15+d,3} 

LET d=d+l: NEXT n: GO TQ 

8500 

3022 IF hech = l THEN LET j=om=225 
: LET i i n=22B 

3024 GO TO 5105 

3026 PAUSE 150 

3030 FOR N=13 TO 1 STEP -1 

3040 PRINT AT n,Qs" 

ni 

3060 BEEP 0.05,-40: PAUSE 20 
3070 NEXT N 

3075 PAUSE 100: GO TO 3460 

3080 STOP 

3090 REM COMEDOR 

3100 LET 11ave=0: LET com=13B: L 
ET fin=192: LET PAP=7 
3110 GO SUB 4170 

3130 PLOT 40,64: DRAW 0,103: FOR 
N=64 TO 167 STEP 28: PLÜT O,N: 

DRAW 40,0: NEXT N 
3135 PLOT 5,64: DRAW 0,28: PLOT 
24,92: DRAW 0,28: PLOT 10,121 
3138 DRAW 0,27: PLOT 30,148: DRA 
W 0,19 

3150 FOR S=0 TO 4: PLOT 80,95-S: 

DRAW 110,0: NEXT S 
3160 FOR N=1 TO 4: PLOT ?0+N,?2: 

DRAW -3,-28: PLOT 176+N,92: DRA 
W 3,-28: PLOT 90,72+N: DRAW 90,0 
; NEXT N 

3162 LET restor==3ó20: LET dat=l3 

3165 GO SUB 3600 

3170 PRINT AT 8,13;"£!B E" 

3180 PRINT AT 9, 10; " LM CD f OH 



2913 FOR n=l TD 70: 

2914 IF cruz-O THEN 

2915 IF cruz 38 1 THEN 
3): 60 TO 5300 
2919 STOP 


NEXT n 
GQ TO 8500 
LET num=a(4 


Z" 

3190 PRINT INK 2jAT 3,6; "K." 

3200 PRINT AT 4,6; "jJ" 

3201 PLOT 41,141: DRAW 11,0: PLO 
T 41,122: DRAW 10,15: PLOT 41,12 















rreqraw&s 


5: DRAW 7,14 

3203 GG T0 SI05 

3204 PRINT AT 20,3;"Sali das: Ade 
1. Dcha:"s RANDÜMIZE USR 3190 

3205 FGR n=l TO 400 

3206 INPUT sí: LET tam=LEN sí 
3210 IF sí«"7" THEN LET nufn=a(n 
Lim): 60 TÜ 5300 

3212 IF sí=" 8 " THEN LET num=dCn 
um>: GG TÜ 5300 

3214 IF tam>7 THEN IF sí=aí(2B3 
,1 TO 7)+a$<279,1 TG tam-7) THEN 

LET 11ave=l: GG TG 3220 

3215 NEXT n 

3220 FOR n = l 93 TG 195: PRINT AT 
21,3;aí<n); RANDÜMIZE USR 3190: 
NEXT n 

3225 GO TO 3205 

3238 STOP 

3239 REM ALMENAS 

3240 LET coro=235: LET fin~240: L 
ET PAP=7 

3250 GO SUB 4170 

3260 FOR N=64 TO 88 

3270 PLOT N-Ó4.N: DRAW 319-N,0 

3280 NEXT N 

3290 FOR N=90 TÜ 106: PLOT 24.N: 

DRAW 231,0: NEXT N 
3300 FOR N=106 TO 131: PLOT 40, N 
: DRAW 43,0: PLOT U3,N: DRAW 43 
,0: PLOT 186,N: DRAW 43,0: NEXT 
N 

3310 LET D=0 

3320 FOR N=133 TO 143: LET D“D+1 
: PLOT 40+D..N: DRAW 42,0: PLOT 1 
13+D,N: DRAW 42,0: PLOT 1 B 6 +D.N; 

DRAW 42.0: NEXT N 
3330 LET D—O 

3340 FOR N=108 TÜ 117: LET D=D +1 
: PLOT 38,N: DRAW -C14+D),0: PLO 
T 84+D,N; DRAW 27-D,0: PLOT 157+ 
D,N: DRAW 27-D.O: PLOT 229+D.N: 
DRAW 26—D,O: NEXT N 
3350 LET 0=0 

3360 FOR N=85 TO 93; LET D=D+1: 
PLOT N,109+D: DRAW 0,23: PLOT N+ 
73,109+D: DRAW 0,23: PLOT N+146, 
110+D: DRAW 0,22: NEXT N 
3370 LET D=Q 

3380 FOR N=0 TO 22: LET D=D+1: P 
LOT N,65+D: DRAW 0,17 


3390 IF N:14 THEN DRAW 0,33 
3400 NEXT N 
3410 LET D=Ü 

3420 FOR N=119 TG 129: LET D=D+1 
: PLOT O,N: DRAW D,0: NEXT N 
3430 LET D=0 

3440 FOR N-15 TO 22: LET D=D+1: 
PLOT N,99+D: DRAW 0,16-Í2*D): NE 
XT N 

3445 GO TO 5105 
3450 Gü TÜ 8500 
3460 REM TEMPLO 

3464 CLS : LET d=0 

3465 FOR n=241 TO 247: PRINT AT 
4+d, 6;aí <n > ; LET d=d+l: NEXT n 
3470 FOR n=l TD 400 

3473 INF'UT sí 

3475 LET tam=LEN sí 

3476 IF sí=aí(250,5 TO 11) AND b 
aul=1 THEN GO TO 3499 

3477 IF tam>7 THEN IF sí=aí(283 
,1 TO 7>+aí(282,1 TO tam-7) AND 
baúl-1 THEN GO TO 3490 

3478 IF s$="no lo se" THEN GO T 
O 500 

3485 NEXT n 

3490 LET d=0 

3491 FOR n=248 TO 251: PRINT AT 
12+d,6;aí(n): LET d=d+l: NEXT n 

3492 GO TO 3473 

3498 STOP 

3499 PAPER 7: CLS 

3500 FOR N=0 TO 31: PRINT AT 17, 
N;"S": NEXT N 
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¡APROVECHA AL MAXIMO TU SPECTRUM! 

Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo e! partido posible a vuestro ordenador. 



Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi¬ 
ciente de la programación BASIC. 

Incluye temas como: 

• Introducción al teclado. 

• Instrumentos útiles para la programación, 

• Uso de comandos fáciles, 

• Como construir un programa. 

• Técnicas de programación. 

• Aplicaciones prácticas. 

lOOpags, - 750 PTAS. 



Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atras la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación. 

El temario incluye: 

• Reglas y herramientas del BASIC. 

• La técnica de los organigramas. 

• Cómo planificar un programa. 

• El mundo de las rutinas. 

• Variables y'cadenas. 

• Funciones matemáticas usuales, 
íoapogs, - 750 PTAS. 


CUPON DE PEDIDO 

Recorta este cupón debidamente cumplimentado y envíelo a INFODIS, S. A. C/ BRAVO MURILLO 377-5 0 A - 28020 MADRID 

/--- 

Sí, envíenme el (los) libro(s) que a continuación detallo al precio de 750 ptas, libro, más 100 ptas. en concepto de 
gastos de embalaje y envío, 

El importe lo abonare: POR CHEQUE □ CONTRAREEMBOLSO □ CON TARJETA DE CREDITO (VISA □) 
(AMERICAN EXPRESS □) (INTERBANK □) 

Número de mi tarjeta 

TITULO__________ 

NOMBRE , _ 

CALLE ___ _ ___ 

CIUDAD___ D. P. ___ 

PROVINCIA ___________ 

Firma 
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PRIMERA REVISTA EN CASSETTE 


-MAYO 35 





SuoP?^"de^ a 


MIDO A 


LABERINTO EN 
TRES DIMENSIONES 
GRAFICOS 
WIZARD 
RELOJ 
DEFENSA 

DIBUJOS ANIMADOS 
ATAQUE ESTELAR 
AGENDA TELEFONICA 
SKI 

PUZLE 

LA SERPIENTE 


r MAS DE 
150.000 PTAS. 
EN PREMIOS. 
BASES EN El 
l INTERIOR 


spectrum 


o! 1 

I-AjE 


ÍFÍ 


pfY 

rS 



U» 

¡jy 

J Je 

























































3501 

LET restor=4870: 

LET dat=13 

3502 

GÜ SUB 

3600 


3504 

FOR n= 

5 TO 26 STEP 21 

3506 

PRINT 

INK 2;AT 

4, n; " fl" 

3508 

PRINT 

INK 2;AT 

5, n -2; " R": A 

T 5,n+2;" R" 



3510 

PRINT 

INK 0;AT 

5,n;"e;- 

3511 

B" 

PRINT 

INK 0;AT 

Ó,n-2 S _B 

3512 

PRINT 

INK 1:AT 

7,n-2;"C C 

c“ 




3514 

NEXT n 



3518 

FDR s= 

24 TO 225 

STEP 168: I 

NK 1: 

FOR n 

=1 TO 6: PLOT s+n,lll 


: DRAW 39-(2*n>,0,PI/1.7: NEXT n 
: NEXT s 

3520 FOR s=41 TD 230 STEP 168: I 
NK 1: FOR n = l TO 4: PLDT s+n,lll 
: DRAW O,-71s NEXT n: NEXT s 
3530 FOR s-1O TO 15 STEP ls FOR 
n=5 TO 26 STEP 21: PRINT INK 1; 
AT s,n; M D": NEXT n: NEXT s 
3535 FOR n=4 TQ 25 STEP 21: PRIN 
T AT 16, n; " EiF": NEXT n 
3540 PRINT AT 6, 12? "GGGGGGGG" 
3542 LET dg=12: FOR n=7 TD 10: P 
RINT AT n, dg; " H" : LET dg=dg+l; N 
EXT n 

3544 LET dg=19: FOR n=7 TO 10: P 
RINT AT n, dq; " I” i LET dg=dg-1: N 
EXT n 

3546 F’LOT 96,120: DRAW -3,3: DRA 
W 3,0 

3548 PLOT 160,120: DRAW 3,3: DRA 
W -3,0 

3550 LET a-i: FOR n = l TO 43: INK 
s 

3560 PRINT AT 11,15;" JK" 

3561 PRINT AT 12, 15; 11 LM" 

3563 PAUSE 5 

3565 LET s=s+l 

3567 IF s>6 THEN LET s~3 
3570 NEXT n 

3580 1NK 0: PAUSE 100: FOR n=291 
TG 300 

3581 PAUSE 10: PRINT AT 18,6;a*í 
n): RANDÜMIZE USR 3190: NEXT n 

3568 INK O: PAUSE 400: G0 TO 500 

3599 REM COMEDOR 

3600 RESTÜRE restor 


3610 FOR N-l TO dat: READ z$: FO 
R S=0 TO 7: READ z: POKE USR z$+ 
S,z: NEXT S: NEXT N 
3615 RETURN 

3620 DATA "A" , O, 127,63, 63, 31,15, 
15, 15 

3630 DATA "B",O,224,224,248,228, 
226,226,228 

3640 DATA "C M ,15,15,31,63,63,63, 

31,15 

3650 DATA "D",248,240,240.243,24 
8,248,240,224 

3660 DATA "E",O,O,O,0,126,126,12 
6,126 

3670 DATA "F",60,24,24,24,24,60, 

G || j£_ wJ vJ 

3680 DATA "£",0,0,0,0,255,255,63 

J O 

3690 DATA "H",O,O,O,O,255,255,25 
5, 255 

3700 DATA "I ", O,O,O,O,255,255,25 
2, 192 

3710 DATA "J",82,123,126,126,60, 
24,0,0 

3720 DATA "K",O,8,12,20,20,36,34 
, 66 

3730 DATA "L",O,O,O,255,112,112, 
1 12,0 

3740 DATA "M",24,36,64,194,66,36 
,24,0 

3760 REM ARCOS 

3790 DATA "A",3,7,7,6,5,5,6,7 
3800 DATA "B% 192, 224,224,96, 160 
,160,96,224 

3810 DATA "C",7,7,15,63,127,255, 
252,248 

3820 DATA “D",224,224,240,248,25 
4,255,63,31 

3830 DATA "E",24,60,126,231,231, 
126,60,24 

3840 DATA "F",O,O,O,O,1,3,7,15 
3850 DATA "8",7,15,58,220,232,24 
0,192,192 

3860 DATA "H",15,24,127,62,127,2 

CT ET Qffi-É- "1C-CL-; 

W '.-J H rP 'rJ 'J || JL. 

3870 DATA H I",0,0,0,O,O,128,128, 
128 

3880 DATA 11 J 11 , O, 63, 64,86,72, 128, 
177,132 

3890 DATA 11 K 11 , O, 254,3,37,201,22, 











144,208 

3900 DATA "L",128,160,93,64,76,S 

3.64.255 

3910 DATA " M ", 16,200. 36, 4, 66, 59, 
4,248 

3930 REM ESCALERA REAL 

3960 DATA ”A",24,60,126,126,60,2 

4.24.24 

3970 DATA 11 B ",24,60, 126,60,24,24 
,24,60 

3980 DATA "C M ,126,60,24,24,24,60 
,126,255 

3990 DATA "D",64,97,94,64,64,64, 
21,64 

4000 DATA "E",129,195,61,1,129,1 
29,241,129 

4010 DATA “F", 64, 64, 96, 4B, 24, 12, 
3,0 

4020 DATA "G",129,129,131,134,12 
,24,224,128 
4040 REM VERJA 

4070 DATA "A",24,24,60,255,255,ó 
0,24,24 

4080 DATA "B",24,24,24,60,126,60 
,24,24 

4100 REM ENCUADRE 

4110 RESTORE 4130 

41.20 FOR N= 1 TD 4: READ z*: FOR 

S=0 TQ 7: READ z: PQKE USR z*+S, 

Z! NEXT S: NEXT N 

4130 DATA "T",60,66,165,153,153, 

165, 66, 60' 

4140 DATA "S",255,213,171,213,17 

1.213.171.255 

4150 DATA "Q M ,0,255,126,60,60,60 
,60,126 

4160 DATA "R".126,255,255,255,12 

6.60.60.24 
4165 RETURN 

4170 PAPER PAP: CLS : POR N=0 TD 
31 

4200 PRINT PAPER 5s INK OjAT 14 
, N; " T" 

4210 NEXT N 
4220 RETURN 
4230 REM CABALLO 

4260 DATA "A",O, O, O,O,O,O,16,56 
4270 DATA "B",0,0,0,48,48,24,24, 
28 

4280 DATA "C",60,127,255,217,7,3 

“T ***■ 



f Oj^OjS 


4290 DATA "D",60,60,188,255,255, 

255.255.255 

4300 DAT A 11 E 11 , O, O, O, 192, 224, 240, 
240,240 

4310 DATA "F",1,3,3,6,4,8,4,2 
4320 DATA "S",254,240,96,96,96,3 
2,32,32 

4330 DATA "H”,248,248,240,208,96 
,32,16,16 

4340 DATA "N",24,36,66,153,153,6 
6,36,24 

4350 DATA "O",255,231,195,195,23 

1.231.231.255 

4420 REM CANDELABRO 

4450 DATA " I ",0,1, 1,49,49,49,49, 

31 

4460 DATA " 3 ",3,1,1,1,1,1,3,7 
4470 DATA "K",O,128.128,140,140, 

140.140.248 

4480 DATA "L",192,128,128,128,12 
8,128,192,224 

4482 DATA "M“,24,36,66,153,153 ,6 
6,36,24 

4500 REM CAVERNA 

4530 DATA "E",255,240,224,224,19 
2,224,0,O 

4540 DATA “F",255,255,255,255,25 
5,195,3,0 

4550 DATA "G",255,255,255,255,25 
5, 207,141,132 

4560 DATA "H",255,255,255,127,31 
,31,31,15 

4570 DATA " I %127,65,3, 2, O, O, O, O 
4530 DATA "J",255,211,171,211,17 

1.211.171.255 

4590 DATA "K",O,l,15,31,63,7,1,O 
4600 DATA "L", 124,254,255,255,25 
5,255,195,130 

4610 DATA "M",O,O,128,193,254,19 
2,0,0 

4630 REM CALAVERA 

4660 DATA 11 A" , O, 63,64,86,72, 128, 

177,132 

4670 DATA "B",O,254,3,37,201,22, 
144,208 

4672 DATA "G",128,160,93,64,76,8 

3.64.255 

4674 DATA "K" , 16,200,36, 4,66,59, 

4.248 

4680 DATA "C",7,31,59,49,113, 113 
,123,126 














4690 DATA "D",224,248,220,142,14 
2, 142,254,126 

4700 DATA M E",62,30,31,31,56,56, 

31.15 

4710 DATA ”F%124,120,248,248,28 
,28,248,240 

4720 DATA "I",24,126,255,126,102 
,165,165,0 

4730 DATA "J",126,60,60,126,255, 

255.126.60 

4740 DATA "N",0,127,255,255,127, 

63.31.15 

4750 DATA "0”,0,254,255,255,254, 

252,243,240 

4800 REM CASTILLO 

4815 DATA "A’\ O,O, 102,255,255,23 

5.255.255 

4820 DATA "B",255,231,195,129,O, 
0,0,0 

4825 DATA "C",255,247,227,227,22 

7.227.255.255 

4830 DATA "D",3,15,63,255,63,15, 
3,0 

4834 DATA "E" , 60, 66, 165,153,153, 

165.66.60 

4860 REM TEMPLO 

4870 DATA "A, 16, 24,56,56,56,56, 
48, 16 

4872 DATA "B",60,60,60,60,60,60, 

60.60 

4874 DATA "O",255,255,126,126,12 
6,126,126.126 

4876 DATA "D",60,60,126,255,255, 

126,60,60 

4878 DATA "E",3,7,7,1 5 ,15,63,127 
, 1 15 

4880 DATA "F'\ 192,224,224,240,24 



136,16,224 
5080 RETIIRN 
5090 REM TEXTO 
5100 60 TO PíNUM) 

5105 INK 9: LET P0S=15 
5110 FOR N=COM TO FIN 
5120 PRINT AT POS, 3; A$ (¡\l) 

5130 LET POS=POS+1 
5140 NEXT N 

5150 INK Oí 60 TO SíNUM) 

5300 IF NUM >=39 THEN GQ TO 5100 

5301 INK 9: FOR N=PÍNUM> TO F(NU 
M> 

5310 PRINT AI 21,3;A$(N) 

5320 RANDDMIZE USR 3190 

5325 PAUSE 10 

5330 NEXT N 

5340 INK O 

5400 GO TO SíNUM) 

6000 STOP 

7000 FOR N=1 TO 400 
7005 IF N~1 THEN PRINT AT 21,3} 
"Salidas; Izq. Adel. Dcha."s RAN 
DQMIZE USR 3190 

7010 IF N=1 THEN PRINT AT 21,0; 
" "s RAN 

DOMIZE USR 3190 
7013 INPUT Sí 

7015 IF SS = ,, 5" THEN LET NUM=I (N 
UM); GQ Tü 5300 

7020 IF Sí =ll 7" THEN LET NUM=A ÍN 
UM): GO Tü 5300 

7030 IF Sí""©" THEN LET NUM=D(N 
UM)’: GO TO 5300 
7100 NEXT N 
7120 STOP 

7150 FOR- N=1 TO 400 



0,252,252, 

206 


7151 

IF N=1 THEN PRINT AT 21,3} 

4862 DATA 

"6", 

0,62,65,65,193,65, 

"Salidas: Izq. Adel. 

RANDÜMIZE 

62,0 


USR 

3190 


4884 DATA 

"H" , 

176,72,132,130,66, 

7152 

IF N=1 THEN PRINT AT 21,0; 

36,26,1 



II 


"i R 

4886 DATA 

” I " , 

13,18,33,65,66,36, 

ANDGMIZE USR 3190 


88,160 


7155 

INPUT SS 


4888 DATA 

"J", 

7,8,17,34,68,137,1 

7160 

IF Sí="5" THEN 

LET NUM-I(N 

45,163 

UM) : 

GO TO 5300 


4890 DATA 

"K" , 

224,16,136,68,34,1 

7170 

IF Sí= "7" THEN 

LET NUM-AíN 

45,137,197 

UM) í 

GO TO 5300 


4892 DATA 

■ 1 ( n 

¡» 

163,145,137,68,34, 

7180 

NEXT N 


17,8,7 



7200 

STOP 


4894 DATA 

41 M M f 

197,137,145,34,68, 

7250 

INK 9; FOR N=1 

TO 400 










TrsxyQMCLs 


7251 IF N=1 THEN PRINT AT 21,3; 
"Salidas: Adel.": RANDOMÍZEUSR 
3190 

7252 IF N=1 THEN PRINT AT 21,0; 

" ": R 

ANDONIZE USR 3190 

7260 INPUT Sí 

7270 IF Sí="7" THEN LET NÜN»A<N 
UM) : GG TD 5300 
7280 NEXT N 
7490 STOP 

7500 INK 9: FOR N=1 TO 400 

7501 IF N=1 THEN PRINT AT 21,3; 
"Salidas: Adel, Ocha”: RANDOMIZE 

USR 3190 

7302 IF N=1 THEN PRINT AT 21,0; 

H ii. 

RAND0MI2E USR 3190 
7510 INPUT Sí 

7520 IF 5Í= ,, 7" THEN LET NUM=A(N 
UM): GD TG 5300 


7530 IF Sí="8" THEN LET NUM=D(N 
UM): Gü Tü 5300 
7550 NEXT N 
8000 STOP 

8500 FOR n-40 TD 50: BEEP 0.5,-n 
: BEEP O,3,n: NEXT n 
8510 PAPER O: BGRDER O: CLS 
8550 INK 6: LET df=6: FOR s-284 
TO 290: LET d-F“d-F + l: FOR n = l TO 
21: PRINT AT d-f, n+5; ai ís, n) 

8560 NEXT n: NEXT s 

8570 INK O: FAUSE 30: GO TO 500 

«-PROGRAMA 7 - 

90óO DIM ai(300,20) 

9010 FOR n=l TG 300 
9020 I NF'UT (" a$ ( " ; n; " > = " ) : LINE 
ai (n) 

9030 NEXT n 

9040 SAOE "a" DATA aíO 


PROTEJA SU SPECTRUM PLUS CON ESTA 


PRACTICA FUNDA 




A UN PRECIO ESPECIAL 


Aproveche ia oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficíese 
de un 30% de descuento 
sobre su precio normal. 


OFERTA LIMITADA 
Y EXCLUSIVA 
NUESTROS LECTOR^ 
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No todo va a ser jugar, en 
este mes de julio . Aunque a 
los que están en las playas, 
tumbados al sol, no les 
parezca posible, hay gente 
que trabaja en julio . Para 
ellos, o páralos que prefieren 
dedicar el verano a 
reflexiones serias, 
publicamos este programa. 


QxXOÁlJljOJÜJSft 



10 REM I Joaquín y Manuel 

Fernandez 1985 # 

20 REM # Reologia de -fluidos # 
1000 REPl t fieologia * 

1060 GU SÜB 5050 
1150 CLS : GC GÜB 5150 
1290 REM fc Entrada de datos t 
1300 BRIGHT 1: CLS 
1310 PRINT AT 4,lj ,l A continuació 
n podra introducir sus datos e;-:p 
erimental es en el ordenador de 
menor a mayor";AT i2,0;"Numero d 
e puntos experimentales?**: INPUT 
n 

1400 D m a ín J í DIM b<n>; DIN c ir 
)i DIN din) 

1410 CLS 

1500 FOR i-1 T0 n 

1510 FRINT í PRINT 11 Valor de F 

del punto Numero: *'; 

i;; INPUT aíi>: PRINT 11 - 11 ; a < 

i ) 

1520 PRINT í PRINT " Valor de D 
del punto Numero: ^; 

í ; ¡ INPUT bíi) : PRINT ■■-"sbí 

i> 

1530 NEXT i 

1600 REN iComprobecion de datos# 
1610 PAPER 7j BURDER 6: INK 0: C 
LS s PLDT O,0i ORAN 0,175: DRAW 
255, Oí DRAW 0,-175: DRAW -255,0: ’ 
PLDT 0,151: DRAW 255,0 
1620 PRINT AT 1, 1 ¡ " * ";N*;" a "j 
Tí;" g, C *" 

1630 PRINT AT 4,2) f 'N. M : PRINT AT 
4,7* 11 Tensión ": PRINT AT 4,1 
9| M Velocidad "s PRINT AT 5,1i 


OVER l f INK 4i" 


1640 FOR i-143 TU 0 STEP -5 

1650 FLÜT 48, i: F'LDT 151, i 

1660 NEXT i 

1670 FOR i=l TU n 

1680 PRINT AT i+5,2;i 

1690 PRINT AT i+5, 7; INK 2:a (i) 

1700 PRINT AT i+5,20; INK l^bíD 

1710 NEXT i 

1720 INPUT "Esta conforfíie?fS7N)" 
1740 IF d*="isn GR d$="n ,p THEN G 


0 TO 1990 

1750 IF d*- M S" OR dl="s" THEN G 
P TO 1960 

1950 CLS ; PRINT " Por favor so 
lo S o N"t PAUSE 200fl CLS : Gü T 
Ü 1600 

1960 IF OP I*- 1 ** 11 THEN I 

NPUT "Para copiarlo C, sino ente 
rM*s IF M4= M C” OR Mí^'c 1 * THEN 
LPRINT i COPV 
1980 GC TD 3000 

1990 CLS f 

2000 REM # Corrección de datos # 



J. 


































C omo sabrán los que hayan 
tenido que luchar contra la 
dinámica de fluidos, éstos 
pueden ser de muy distintos 
tipos. Mediante un viscosí- 
metro, y unos ciertos conocimien¬ 
tos matemáticos, es posible anali¬ 
zar las características de un fluido 
determinado. 

Un viscosímetro rotacional con¬ 
siste en un cilindro que gira en el 
seno de un fluido. Debido a la vis¬ 
cosidad del fluido, el cilindro ex¬ 
perimenta un par de fuerzas en 
sentido opuesto a su giro. La repre¬ 
sentación de la velocidad de giro 


frente al par de fuerzas nos propor¬ 
ciona datos respecto al fluido: su 
viscosidad aparente y el número 
estructural, que determina el tipo 
de flujo: y también respecto a la 
bondad de nuestras medidas expe¬ 
rimentales: coeficiente de correla¬ 
ción y desviación standard. 

El programa nos presenta tam¬ 
bién los datos obtenidos de forma 
tabular, así como la representación 
gráfica de éstos, llamada reograma, 
y que tiene gran importancia a la 
hora de interpretar estos paráme¬ 
tros. 

Los resultados que se obtienen 


son de gran importancia en la quí¬ 
mica, la farmacia y otros campos, 
y pueden resultar de gran utilidad 
para control de calidad, optimiza¬ 
ción energética, etcétera. 


El programa 

Este programa ocupa 11.655 
bits, que pueden reducirse consi¬ 
derablemente eliminando las ruti¬ 
nas de comprobación. Rutinas que 
se han introducido por la necesi¬ 
dad de corregir algún dato sin te- 




2010 PRINT AT 0,1;"El dato a cor 
regir corresponde a una velocida 
dos una tensión? (V/ 

T> ” s PRINT i PRINT 11 Por favor 
,comience por los datos de ma 
yor numero de orden 11 
2020 INPUT cí 

2030 IF OR c$='V THEN B 

O TO 2100 

2040 IF c*="T M DP ct= ,, t 11 TREN G 
Q TQ 2200 

2050 CLS í PRINT s PRINT " P 

or favor solo V o T H : GG TQ 2010 
2100 CLS 

2110 PAPER 1: EORDER 1: IMK 6i C 
LS : PRINT : PRINT M Que numer 
o d& orden de las velocidades 
introducidas d&sea c 

□rregí r?" : PRINT : PRINT 11 Na 
Mimo ’ ;n: INPUT vel 
2120 1F vel >rt THEN CLS i PRINT 
AT S,l;“No puede ser el numero 11 
ivel: PAUSE 200: GQ TC 2110 
2130 CLS í PRINT AT B f l;"EI valo 
r antiguo era: ”;b<vel): IF vel< 
n THEN PRINT i PRINT " Valor ma 
Mimo 

2140 PRINT : PRINT " Ponga el nq 
evo valor" ; : INPUT RR: PRINT 11 = 
" i? PRINT RR: IF vel-n THEN 130 
TO 2150 

214?- IF RR>bíní THEN CLS : PRIN 
T AT 8,1; M No puede ser mayor q 
ue el ultimo de su serie" 

: PAUSE 200: GQ TO 2130 
2150 LET b C vel) =RR: PRINT : PRIN 


T " Desea modificar otra dato? 
<S/N> M 

2160 INPUT Mí 

2170 IF MÍ= ,, S f ' OR MÍ- lp s 16 THEN G 
0 TO 1990 

2180 IF M$= 1l N" OR H*=”n u THEN G 
Q TO 1600 

2190 PRINT " Por favor solo S 
o N": GQ TO 2150 
2200 CLS 

2210 PAPER 1: BURDER 1: INK 6: C 
LS : PRINT : PRINT 11 Que numer 


o de orden de las tensiones 

introducidas desea c 

" orregir?”: PRINT : PRINT ■■ Na 
jíimo " ;n: INPUT ten 
2220 IF ten>n THEN CLS : PRINT 
AT 8 ? 1 j JI No puede ser el numero " 

;ten : PAUSE 200: GO TD 2210 
2230 CLS : PRINT AT 8, 1; ,P E1 y* 1 C 
r antiguo era: ai teñí* IF ten-- 

n THEN PRINT : PRINT " Valor ma 
^imo n i a fn) 

2240 PRINT i PRINT 11 Ponga el nu 
evo valor 11 ; : INPUT XX: PRINT M = 


Los datos que podra introducir 

a continuación son Las veloci¬ 
dades de giro del rotor (U en el 
gráfico) y La tensión de ciza- 

LLamiente obtenida a partir de: 


M 

¡B — — — — — — — — — — 

2#PI*Rt2*h 


Donde M es La Lectura de La 
escala (par de fuerzas) 

Para pasar pulse ENTER 

















ner que volver a introducirlos to¬ 
dos de nuevo a causa de un error 
de tecleo. 

Para evitar esto en lo posible, se 
ha introducido una variable que 
«sonoriza» el teclado, haciendo 
más clara la pulsación de la tecla, 
aunque esto tiene menos impor¬ 
tancia en el Spectrum Plus. 

Se ha introducido otra variable 
que registra si tenemos conectada 
la impresora, preguntando en cada 
caso si deseamos reproducir los re¬ 
sultados. 


Una vez introducidos los datos 
(desde la línea 1300 hasta la 1530), 
se presenta en pantalla y se pide la 
conformidad o no (línea 1600). 

Si se detecta algún error en estos 
datos, se procede a su corrección 
(línea 2000) y posterior presenta¬ 
ción y conformidad (línea 1600). 

En el caso de que los datos sean 
correctos, se pueden sacar por la 
impresora antes de su elaboración 
o bien se elaboran directamente 
(línea 3000). 


Una vez preparados estos datos, 
presentar los resultados y en su 
caso preguntar si se desean sacar 
por la impresora (línea 3500 a la 
3700). 

Se han introducido además cri¬ 
terios que permiten indicar si la 
sustancia presenta un determinado 
tipo de flujo o bien sólo tiene ten¬ 
dencia a él, y cuál es este flujo. 

La representación gráfica (a par¬ 
tir de la línea 3700, comienza con 
la pregunta sobre si ios límites los 
desea establecer el usuario o ios 


PRINT XX! IF ten-n THEN GO 
TD 2250 

2245 IF XX>aín) THEN CLS : PftíN 
T AT 8, 1 1 No puede ser mayor q 

el ultimo de su serie 11 

: PAUSE 200: GO TO 2230 
2250 LET ten )=*;:: PRINT t PRIN 
T ** Desea modificar otro dato? 
ÍS/NÍ H 

2260 INPUT M* 

2270 IF DR THEN G 

,0 TQ 1990 

'2280 IF Mís^N" DR THEN G 

0 10 16G0 

2290 PRINT IE Por favor solo £ 
o ÍM M s 60 TQ 22^0 
3000 REM ¥ Elaboración datos t 
3010 PAPER 3: BORDER 3: CLS : FR 
INT AT 10,9* FLASH 1; PAPER 4; I 
NK 1; BR1GHT 1 5 " Calculando 11 
3020 LET s=Of LET cc=0s LET dd-0 
i LET ee-G; LET ff=Ü! LET y=0: L 
ET a=0: LET b“0¿ LET c=0: LET d“ 
Oí LET e=0¡ LET f-O: LET g=0c LE 
T h=Ot LET i-0: LET j=0: LET k=0 


: LET 1™0¡ LET LET psOc LET 

Q-Oz LET r-O; LET w=0 
3030 FÜR 1-1 T0 n 
3040 LET c=c+aíí)*bíi) 

3050 LET d-d+aU) 

3060 LET e=e+b(i) 

3070 LET f + < a¡ (i > ¥ a í i > ) 

3080 LET g=g+(bíi)*bíi>) 

3090 NEXT í 
3100 LET h-h+c*e 
3110 REM * Medias ¥ 

3120 LET k-d/n 
3130 LET 1-e/n 
3140 REM * Pendiente * 

3150 LET p=íc-d*e/n)/(f-d^2/n) 
3160 REM # Regresión * 

3170 LET r=íc/n-ktn /i (SOR íf/n- 
k^-2))*(SQR (g/n-1 A 2> ) > 

3180 REM * Desviación standar t 
3190 FOR i=l TO n 
3200 LET m=m+ < k-aíi>> 

3210 NEXT i 

3220 LET w=AB5 m 

3230 LET s-SQR íw^2/n> 

3240 REM * Numero estructural * 


3245 FOR i=l TO n: LET c(ü=LN a 

íi) 72. 302501 LET d(i>=LN bU) /2, 

30258: NEXT i 

3250 FOR i~l TO n 

3260 LET cc=cc+e(i)¥d<i) 

3270 LET dd—dd+e(i ) 

32B0 LET ee^e+díií 
3290 LET ff=*ff+(c (i>*c <i > > 

3300 NEXT i 

3310 LET y-ícc-ddiee/n)/(ff -<úút 
dd>/n) 

3320 REM ¥ Ordenada en origen ¥ 
3330 LET o=l‘-p*k 

3340 IF p>-0,000001 AND o<Ú.ÜÚGÜ 

01 THEN LET Q=0 

3350 IF p<-0 THEN LET 

3360 IF o>0 THEN LET üí- ,l + lfc 

3370 IF o< =0 THEN LÉT 0*="" 

3330 IF p>0 THEN LET 
3490 REM ¥ Salida resultados ¥ 
3500 PAPER 7i BORDER 6: INK 0: 0 
L5 í PLQT O,Os DRAW 0,175: DRAW 
235 p 0: DRAW O,“175: DRAW -255,Oí 
PLOT On151s DRAW 255,0 
3510 PRINT AT ,E Í N4 S ,Í a 

Tí;" g* C *" 

3520 PF:INT AT 4,2; QVER l;"La re 
cta definida esí"¡ PRINT : PRINT 
OVER 1;" D=";0*¡Q|F*|pj 11 *F" 


3530 
» ■ r 

PRINT j 

PRINT 

OVER 

U ,l 

r = 

3540 

ii > c 

PRINT a 

PRINT 

□VER 

lí ■' 


3550 

PRINT i 

PRINT 

□VER 

U" 

N* 

" s y 

3555 

PRINT : 

PRINT 

OVER 

u* 

V 


app = " ; 1/p; 11 Cp lp 

3360 IF y>0.93 AND y<1.05 THEN 
LET jí-" Newtonianü"s LET q$=- Pe P 
resenta flujD! "i GO T0 3610* 

3570 IF y<0-95 THEN LET jí=" Di 
látante o plástico" 

3580’IF y>1,05 THEN LET Ps 

eudopl ast i co ,p 

3590 IF y>0*9 AND y< í. i THEN LE 
T qí—" Tiene tendencia a flujo;" 
3600 IF y<0.9 OR y>l,i THEN LET 
q*- ,p Presenta -flujo: lh 
3610 PRINT i PRINT OVER l;qí¡ P 
RINT í PRINT OVER L;jS 
3615 IF 1S=»S H DR l*="s" THEN I 
NPUT "Para copi ar I o ÍCK sí no ENT 
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toma el ordenador, que elegirá los 
valores: cero y el máximo valor de 
cada eje. 

Estos límites se presentan y se 
pide conformidad como en veces 
anteriores (línea 4000) y una vez 
conseguida (con corrección o sin 
ella), comprueba que puedan exis¬ 
tir errores que conducirían a 
ERROR B. 

A continuación se presenta la 
gráfica (línea 4150) y en su caso 
pregunta si se quiere copia o no. 

Después presenta un menú de 


opciones que pueden hacer que el 
programa vuelva para atrás, corre¬ 
gir alguna variable, estudiar otra 
muestra o grabarlo. 

La presentación de) programa se 
realiza en la línea 6000 para evitar 
que se repita cada vez que el pro¬ 
grama se rompa y se desee comen¬ 
zar de nuevo. 

Las posibilidades de mejora del 
programa son infinitas (carga de 
datos por cinta, elaboración de da¬ 
tos con entrada de constantes, dis¬ 
tintos tipos adicionales de reogra- 


mas, etc.) pero a fin de no exten¬ 
derlo demasiado y considerando 
que lo fundamental de la idea y la 
utilización cómoda y con buenos 
resultados está cumplido, no cree¬ 
mos oportuno introducir unas mo¬ 
dificaciones que en cualquier caso 
son de fácil realización por quien 
tenga necesidad concreta de alguna 
de ellas a partir del presente pro¬ 
grama. 

Joaquín Fernández Rojano 
Manuel Fernández Rojano 48K 


ER";W$: IF Wt="C" DR Wi="c" THEN 
COPV 

3620 1NPUT "Para pasar pulse ENT 

3650 REM # Granjeas I 
3700 PAPER 7: INk 0: 

LB 

3710 PRINT AT 4, ! ; IH 
ec&r los limitéis 
ira p los tama 
rdenador?" : PRINT j 
; S H ÍS/N> INPUT L* 

3720 IF L*“ P, S” 0R L$^"V THEN G 
O T0 3750 

3730 IF LÍ-'W OR L$="n" THEN G 
□ TO 3SOO 

3740 CLS ¡ PRINT ; F'RINT 
r fápor solo S o N 
3750 CLS s PRINT : PRINT 
or m&itímo del eje y de 

la gráfica": INPUT Ym 
3760 CLS i PRINT : PRINT 
or masíimo del eje X de 

la gráfica"; INPUT Xm 
3770 CLS * PRINT : PRINT 11 Val 


BURDER 5i C 

Desea eetabl 
de la q raf 
el o 

PRINT INK 2 


Fo 

60 TO 3710 
Val 


Val 


or minimó del eje Y de 

la gráfica": INPUT Ymi 
3780 CLS f PRINT i PRINT " Val 
or mínimo del eje X de 

la gráfica": INPUT Xmi 
3790 GO TO 4000 
3S00 LET Vm=bín )5 LEI Xm=*ín> 
3810 LET Ymi-0; LET Xmi=0 
3820 GO TO 4000 

4000 CLS i PRINT ¡ PRINT 11 Val 
or máxima del eje Y de 
la grafica= H ;Ym 

4010 PRINT i PRINT "♦ Valor min 
imo del eje Y de la 

gráfica 111 "; Ymi 

4020 PRINT ; PRINT Valor man 

imo del eje X de la 

gráfica™''; Xm 

4030 PRINT : PRINT " Valor mirx 
ima del eje X de i A 

graf i ca- 1 '; Xmi 

4040 PRINT : PRINT *' Esta can 
forme? (S/N)" ¡ INPUT 
4050 IF OR THEN 0 

D TQ 4080 



4060 IF H*="N" OR M*= PL n M THEN C 
LS i PRINT i PRINT ,p Ahora corr 
egira ios limites"i PAUSE 200; G 
□ TO 3700 

4070 CLS : PRINT s PRINT ” Por 
favor solo 5 a N ,p i 80 TO 4000 
4000 IF Xmi>a<n OR Ymi>bU) THE 
-N PRINT " Limites no validos 
M : PAUSE 200: GO TO 4000 
4110 IF X#ñ<=Xmi THEN CLS a FRIN 
T : PRINT M Limites no validos 
PAUSE 100j 80 TG 4000 
4120 LET z-195/Xm: LET q=i43/Ym 
4130 LET ydy=LEN 5TR* bín) 

4140 LET ::dx-LEN 5TR* a<n> 

4ISO PAPER 1: BRIGHT i: BÜRDER l 
: INK ls CLS 

4160 FLOT 0,0: DRAW 0*175: DRAW 
255,0; DRAW 0,-175: DRAW -255,0 
4170 INK 7: FLOT 39,12: DRAW 0,1 
54 

4 ISO FLOT 34,17: DRAW 212,0 
4190 LET dyd=2Q-M q# Ym) /8s LET d* 
d=tz*Xm)/S+5 

4300 LET ydy-LEN STRS Ym: IF ydy 

>3 THEN GO TO 4320 

4310 PRINT AT dyd,l;Ym;AT dyd,4; 

□VER 1|! GQ TO 4330 
4320 LET Y*=STR4 Ym: PRINT AT dy 
d, 1} Y*( TO 3);AT dyd,4; OVER 1¡j" 

4330 LET xó'A =LEN STR* Xm: IF xóx 
>3 THEN GO TO 4350 
4340 PRINT AT 20,dxd~3;XmjAT 20, 
d>;d£ QVER 1 ¡ "ñ IJ : BU T0 4360 
4350 LET X*=STRS Xm: PRINT AT 20 
*d:íd-3jX$< TO 3);AT 20,dí;d; QVER 
1; "Tí 11 

4360 LET ddd=LEN STR* Ymi : IF dd 

d >3 THEN GO TO 4380 

4370 PRINT AT 18,1;Ymi! GO TO 43 

90 

4380 LET D$=STR* ddd: PRINT AT 1 
8, IjDSí ( TO 3> 

4390 LET www^LEN STR& Xmi: IF ww 
w>4 THEN GO TD 4410 
4395 PRINT AT 20,22;"<F3 "s PRINT 
AT 5,2| DVER 1 j " <D> " 

4400 PRINT AT 2C,6jXmi: GO TO 44 
20 

4410 LET W*=5TR* www; PRINT AT 2 
0,6}W$( TO 4) 


6¡ 


















4420 LET fgh^O: LÉT hgf-0 
4430 FGR i-i TO n 

4440 LET tyu-INT £(aíi ) *2+391 -£ * 
Xftii > i LET poi=lNT £ ib íi ) *q+L7) -q 
*Ymi ) 

4450 CIRCLE tyu^pai,3 

4480 LET fgh=t/u: LET hgf=pui 

4490 NEXT i 

4500 LET fgh-Os LET hgf=0 
4550 PDF: i=^l TQ n: LET tyu=INT £ 
íaíi5*z+39)-2*Xmi>: LET poi^INT 
({b <i í*q+l7?-q fcYmi) 

4560 IF i = t THEN PLOT tyu,püi 
4570 1F i>l THEN DRAU1 tyu-fgh,p 
ai-hgf 

4580 LET fgh^tyu: LET hgf=poi 
4590 NEXT i 

4600 1F I$= k, S" QR í$^"s" THEN I 
NPUT "Fara copiarlo (O si no ENT 

e 

46iO IF I*="n" OR THEN G 

0 TO 4630 

4620 IF M$= :|, C'" OF: THEN L' 

PRENT ; LPRINT N*;" a "íTÍ;" g,C 
"s COPY 

4630 INPÜT "Para pasar pulse EN 


Agua a 25 g.C 


TER";P* 

4640 PAPER 6: 1NK 1: BORDEE 4i C 
LS 

4650 PRINT : PRINT INK 2; PAPER 
4T FLASH 1;AT 1,4-;" Elija apcio 
ni " : PRINT í PRINT "1.-Conectar 
impresora o sonrizar tecl 

ado 11 í PRINT i PRINT "2--Comprobé 
r nombre y temp*": PRINT f PRINT 
"3.-Comprobar datos": PRINT : P 
RINT "4. -coní i rfnar resul tados" 
4660 PRINT : PRINT "5.-Comprobar 
limites de gráfica”i PRINT j PR 
INT "6.-Visuali zar gráfica": PRI 
NT : PRINT "7.-Estudiar otra mué 
stra": PRINT : PRINT "8.-Grabar 
programa": PRINT : PRINT ”9.-Ver 
instrucci enes" 

4670 LET KÍ=INKEYÍ 


4680 

IF 

K*- 

■" 1 

THEN 

GQ 

SUB 5050 

í GO 

■TO 

4650 




4690 

IF 

K9= 

"2" 

THEN 

GG 

BUB 5150 

4700 

IF 

K$- 

"3" 

THEN 

GD 

TO 1600 

4710 

IF 

K*= 

"4" 

THEN 

GG 

TD 3000 

4720 

IF 

K*= 

»5» 

THEN 

GD 

TQ 3650 

4730 

IF 

K*“ 

"6" 

THEN 

GG 

TO 4120 

4740 

IF 

K*= 

"7" 

THEN 

GQ 

TO 1050 

4750 

IF 

KT= 

"8" 

THEN 

SAVE "Reolp 

g i a" 

LINE 6000 




4760 

IF 

K*= 

"9" 

THEN 

GQ 

BUB 6050 

4 770 

GG 

TG 

4650 



5050 

PAPER 

1: 

INK 7: 

BQRDER 1¡ C 

LS 







5060 

PRINT 

: PRINT " 

Tiene conec 

tada 

I a 

imprespra?: M 

: PRINT : PR 

INT 1 




S/H 

] 

[NPUT 1* 

5070 

IF 

I*= 

"S" 

GR 1*< 

— 11 s * 

1 THEN C 

LE : 

GG 

TO 

5100 



5080 

IF 

14- 

" N " 

OR Ií= 

c "n 1 

' THEN C 

LS : 

60 

TG 

5100 




5090 PRINT i PRINT " Por fa 

vor solo S o N" : G0 TQ 5060 
5100 PRINT AT 4,1; " Quiere sonpr 
izar el teclado?"s PRINT : PRINT 
S/N": INPÜT S* 


5110 IF SS^'S 11 QR Sí= lt s li THEN F 

QKE 23609 ,255: RETURN 

5120 IF OR 3*-'^" THEN F' 

OFE 23609,0: RETÜRN 

5130 PRINT ; PRINT " Por fa 

vor solo S o M 11 s GD TQ 5100 

5140 RETÜRN ' 

5150 PAPER 7i INK Oi BOEDER 6; C 
LS 

5160 PRINT AT 4,1;" Ponga el no 
robre del producto 11 r PRINT : PRI 
NT kl estudiado': INPüT 

N$ 

5170 CLS : PRINT AT 4,1;" Ponga 
la temperatura de la ": PRINT s 
PRINT ” e;< per i ene i a en grad 

os": PRINT : PRINT " ce 

nti grados": INPÜT T$: CLS 
5100 PRINT AT 4,2;"Nombre: ";N$: 


PRINT : PRINT " T emp.= "jTt;" 
grados cent.": PRINT : PRINT : P 
RINT M Esta conf orme? <S/Nl 11 : 
INPÜT D* 

5190 IF D$="S" OR Dt-N" THEN C 
LS t RETÜRN 

5200 IF D*="N" OR Dí-W THEN C 
LS j PRINT : PRINT " Corríj 

a sus datos": GG TD 5160 
5210 CLS : PRINT : PRINT 11 Por 
favor solo 5 o N" : 30 TO 5180 
6050 BRÍGHT 1: FLASH 0: PAPER 0: 
BQRDER Os CLS 

6060 PRINT AT 2,2; FLASH 1; PAPE 
R 6; BRIGHT 1; INK 2;" Pare el c 
assette PRINT AT 10,10; FLASH 
1» BRIGHT i; PAPER 1; INK 7;» R 
eologia "¡ PRINT AT 19,2; INK 7; 

Joaquín y Manuel Fernandez";A 
T 21,15;19B5 
6070 FOR v=l TD 18 
6OQ0 READ a,b: BEEP a,b 
6090 NEXT v 

6100 DATA .8,0,,4 T -5,,8,0,.4,-5, 
-4,0,-4,-5*.4,0,.4,4,1,7,,8,5,.4 
, 2 , ■ B , 5,,4,2,«4,5,-4,2 S .4,-1,«4 Í 
2,,8,-5 

61B0 PAPER li INK 7: BQRDER 1: B 
RIGHT 1: CLS : PRINT : PRINT : P 
RINT " Este programa le permit 
e,a partir de datos eKperimen 
tal es,obtener directamente los p 
arame- tros y reogramas del prod 
ucto estudiado a la temperatura 
dada " 

6200 PRINT : PRINT INK 6;" Pa 
ra pasar pulse ÍEMTER)": INPüT z 
*: CLS 

6210 PAPER 1: INK 7; BORDEE 1: C 
LS : PLOT 90,112! DRAW 60y+0,P 1/ 
4: DRAW -60,0,FI/4t DRAW 0,^60: 
DRAW 28,0: DRAkl 0,60: PLOT 150,5 
2: DRAW -60,0, PI/4: DRAW 60,0, F'I 
74: DRAW -0,60 

6220 PRINT AT 11,15;"h";AT 15,15 

. M r II 

6230 PLOT 42,112: DRAW 20,Oí DRA 
W 0,-SO; DRAW 116,0: DRAW 0 , 80 : 
DRAW 20,0 

6240 FOR i -1 TO 36 STEP 3: PLOT 
6240 FQR i=1 TO 36 STEF 3: PLOT 
118,112+ii NEXT i 

6250 PLOT 67,99: DRAW 18,0: PRIN 
T AT 9,S| DVER 1;"< >";AT 10,9;» 
R h 

6260 PLOT 110,140* DRAW 13,0,PI/ 
4t PRINT AT 4,15; OVER 1; 1, > W ;AT 
4,16;; "W ,J 

6270 PRINT AT 1^3?" Vi seas!metro 
Rotacional 11 : INK 6: PRINT AT 2 
O,3;"Para pasar pulse ENTER"¡ IN 
PUT z* 

62B0 CLS : INK 7i PRINT s PRINT 
; PRINT " Los datos que podra i 
ntraducir a continuación son la 
s veloci- dades de giro del roto 
r <W en el gráfico? y la tensión 
de ciza- 11 amiento obtenida a p 
artir de:"i PRINT : PRINT « 

M" : PRINT 11 T=--— 

--” ■ PRINT " 2*F'I*R-''2 

#h": PRINT i PRINT " Dorude M es 
la lectura de la escala 

tpar de fuerzas)": PRINT ¡ PRINT 
INK 6; 11 Para pasar pulse ENT 
ER": INPÜT z* 

6300 RUN 






















0 Quisiera preguntarles si sería 
posible adaptar el programa AR¬ 
CHIVO del número 4, páginas 55 
y 56, para utilizarlo en cassette, 
pues no dispongo de Microdrive, y 
el programa me resultaría de mu¬ 
cha utilidad para ordenar artículos 
de revistas, libros, etc. ¿Me po¬ 
drían indicar las modificaciones 
necesarias? 


Nicanor Floro Andrés 
Leganés 


R 


En principio es difícil adaptar 
el programa á que se refiere para 
que funcione sin Microdrives, pues 
se basa en la creación de ficheros 
de datos directamente en los cartu¬ 
chos, lo cual en cassette es imposi¬ 
ble. Siempre le queda la posibili¬ 
dad de programar su propia base de 
datos que esperamos nos envíe. 


E Os escribo porque ha desperta¬ 
do mi curiosidad ¡a portada del 
ejemplar número 9 basada en la ya 
tan popular serie «V». Soy un asi¬ 
duo seguidor de la serie y de su re¬ 
vista. y esta portada me ha gustado 
mucho, por lo que os pido si seríais 
tan amables de mandarme el lista¬ 
do de dicha portada para así poder 
hacerla en mi casa. 

Esteban Lorenzo 
T enerife 


Nos alegramos de que te haya 
gustado esta portada y nos gustaría 
poder mandarte el listado que nos 
pides, pero debes saber que dicho 
listado, por tener que incluir la to¬ 
talidad de el archivo de presenta¬ 
ción visual, llevaría una lista de 
DATAS compuesta por 6.912 nú¬ 
meros entre 0 y 255, lo cual pensa¬ 
mos que te resultaría demasiado 
pesado de teclear. Por ese trabajo 
creemos que resultaría más intere¬ 
sante que consiguieras un progra¬ 
ma de dibujo y crearas tu propia 
obra de arte de la que puedas sen¬ 
tirte orgulloso (todo es proponérse¬ 
lo). 


¿Por qué no publican periódi¬ 
camente partes de la ROM del 
Spectrum desensamblada y co¬ 
mentan las diferentes subrutinas? 
Creo que una sección así interesa¬ 
ría a la mayoría de los lectores. 


Ramón Aliaga 
Barcelona 


E Nosotros también considera¬ 
mos que este tipo de artículos es in¬ 
teresante y práctico, dada la total 
falta de publicaciones en castellano 
dedicadas a este tema tan imprecin- 
di ble para e) programador en códi¬ 
go máquina. Si sigues fiel a ésta tu 
revista comprobarás que próxima¬ 
mente se iniciará una serie que es¬ 
peramos tape este hueco y ayude a 


todos los que empiezan a progra¬ 
mar en este lenguaje a conocer me¬ 
jor el sistema operativo del Spec¬ 
trum. 


En el libro Understanding your 
Spectrum, del doctor Ian Logan, 
al citar la instrucción IM 2, dice 
textualmente: 

«La interrupción modc 2 no se 
usa en el sistema del Spectrum 
pero es la más poderosa. En este 
modo, un dispositivo periférico 
puede indicar al microprocesador 
cuál de las 128 subrutinas diferen¬ 
tes se seguirán al recibir una inte¬ 
rrupción. El contenido del registro 
I y un byte suministrado por el dis¬ 
positivo periférico se usan juntos 
para formar una dirección de 16 
bits que es usada entonces para di¬ 
rigir a una tabla vector que previa¬ 
mente habrá sido preparada en la 
memoria.» 

En el número 2 de TODOSPEC- 
TRUM aparece el uso de IM 2 en 
la función RESET. En este caso, y 
en otros que hemos podido estu¬ 
diar, la dirección de 16 bits está 
formada por el contenido del regis¬ 
tro I como byte más significativo (I 
por 256) y eí byte menos significa¬ 
tivo ha sido siempre 255. 

Desearía saber si es posible em¬ 
plear otro valor distinto de 255 en 
este byte y cómo lograrlo. 

José García 
Valencia 




(5(JSANEZ p° r ^ c 'Iomás 





































El corcho 


Como bien señala el doctor Lo¬ 
gan ese byte lo suministra el dispo¬ 
sitivo periférico que genera la inte¬ 
rrupción. En el caso del Spectrum 
el único periférico que, en princi¬ 
pio, las genera es la propia ULA, 
que da el conocido 255. Ahora 
bien, si por el bus de expansión co¬ 
nectáramos un dispositivo que (por 
medio de la patilla INT del bus) in¬ 
terfiriera las interrupciones de la 
ULA, tendríamos un nuevo siste¬ 
ma de interrupciones que podría 
utilizar cualquier otro número en 
este byte bajo. No conocemos nin¬ 
gún periférico que actualmente uti¬ 
lice este sistema, pero si algún lec¬ 
tor realiza un montaje que lo utiliza 
esperamos ansiosos que nos lo en¬ 
víe. 


¿Es posible utilizar ios coman¬ 
dos del BASIC ampliado (por me¬ 
dio del Interface /) desde nuestros 
programas? ¿Se pierden estos pro¬ 
gramas si hacemos NEW? 

Javier Boisch 
Barcelona 


Cuando utilizamos las posibili¬ 
dades de ampliación del intérprete 
BASIC que nos ofrece el Interface 
/, lo que estamos haciendo es ex¬ 
tender el análisis de error del Spec¬ 
trum. En efecto, si el sistema ope¬ 
rativo detecta un error en la máqui¬ 
na sin Interface I, se llama a la ru¬ 
tina de la dirección 8. Esta impri¬ 
me el mensaje de error y devuelve 
el control al editor. Si el Interface 
1 está conectado la llamada a esta 
rutina «página» la ROM de 8K de) 
Interface, que intenta averiguar si 
se trata de uno de los comandos 
propios de este. Si no es así, salta a 
la dirección a la que apunta la nue¬ 
va variable del sistema VECTOR, 
situada en RAM y que inicialmente 
vale 0IF0H (rutina de error del In- 
terfáce. Si en esta variable «pokea- 
mos» la dirección de inicio de nues¬ 
tra rutina de ampliación, cada vez 
que se produzca un error sintáctico 
el control pasará a ésta, donde de¬ 
beremos comprobar que la orden 


introducida es uno de nuestros co¬ 
mandos adicionales, y, si es así, 
ejecutarlo. 

Esta larga introducción sirve 
para indicarte que tus nuevas ins¬ 
trucciones entran en pie de igual¬ 
dad con las del Interface 1, por lo 
que podrás utilizarlas siempre que 
previamente hayas cargado la ruti¬ 
na en código máquina que (as intro¬ 
duzca, y hayas inicializado la varia¬ 
ble VECTOR a su valor correcto. 
Si no lo has hecho, comprobarás 
que el ordenador se niega a admitir 
tus comandos ampliados. 

Cuando hacemos NEW la má¬ 
quina limpia toda la memoria por 
debajo de RAMTOP. Si tu rutina 
estaba por encima de éste seguirá 
estando ahí. Sin embargo, VEC¬ 
TOR habrá sido vuelto a su valor 
inicial, por lo que para volver a 
usar estos comandos deberás intro¬ 
ducirle de nuevo la dirección de tu 
rutina. Con estas salvedades, los 
comandos del BASIC ampliado 
son idénticos a los que residen en 
ROM. 


¿Por qué a veces tarda tanto 
tiempo en cargarse y grabarse un 
programa de pocas instrucciones? 
¿Se debe quizá a la reserva de me¬ 
moria producida por los DIM? 


Francisco J. Santabárbara 
Caspe 

En efecto, cuando grabamos un 
programa BASIC, con él se alma¬ 
cenan también todas las variables 
que en ese momento estén defini¬ 
das. Al ejecutar una sentencia 
DIM el ordenador hace hueco para 
un determinado número de varia¬ 
bles numéricas o alfanuméricas. Si 
el número de variables que hemos 
DIMensionado es elevado, lo nota¬ 
remos a la hora de cargar el pro¬ 
grama. 

La solución a esto es simple, de¬ 
beremos borrar todas las variables, 
antes de grabar el programa, me¬ 
diante el comando OLEAR; con lo 
cual ahorraremos, además de tiem¬ 
po, espacio en la cinta que utilice¬ 
mos. 


ZX Spectrum 48 K. Impresora SEI- 
KQSA GP-50-S(no precisa interface). 
26.000 pesetas cada cosa. Junto o se¬ 
parado, con alimentación, cables, ma¬ 
nual en castellano, cintas demostra¬ 
ción..., como nuevo. Tel,; (983) 
23 30 10. 


VENDO CAMARA DE VIDEO 
SONY B/N EN GARANTIA 
MODELO HVM-100 CE CON 
ADAPTADOR PARA 
CONECTAR EN 
CUALQUIER VIDEO 
DOMESTICO POR 50.000 
PTAS., O LA CAMBIARIA 
POR UN MICRODRIVE CON 
ÍNTER FASE E IMPRESORA 
SEIKOISHA GP-50. 
INTERESADOS DIRIGIRSE 
AL TELEFONO (954) 36 49 02 
DE SEVILLA A PARTIR DE 
LAS 10 DE LA NOCHE 
PREGUNTAR POR EMILIO, 


«Deseo tomar contacto con usuarios de 
ordenadores MSX, mi dirección es: 
Antonio Marín. Garita. 19. 07015 Pal¬ 
ma de Mallorca. TeL: (971) 40 36 59. 


Vendo ampliación 
externa de 16 a 
48 K para Spec¬ 
trum con garantía 
Indescomp por 
7.000 pesetas ad¬ 
junto envío prue¬ 
ba verificando su 
perfecto funciona¬ 
miento. Interesa¬ 
dos dirigirse a 
José Francisco 
Pujalte- Avda. Sa¬ 
lamanca, 7. 5." D. 
03005 Alicante. 
Tel.: 22 81 43. 


DESEO EN¬ 
TRAR EN CON¬ 
TACTO POR 
CORREO CON 
USUARIOS DEL 
QL, PARA IN¬ 
TERCAMBIAR 
OPINIONES, 
CONSEJOS O 
PROGRAMAS 
NO COMER¬ 
CIALES. PRO¬ 
METO RES¬ 
PUESTA. MI- 
CHAEL IGLE¬ 
SIAS. AV. CAS¬ 
TILLA 8A. 5." A. 
10002 GUADA- 
LAJARA. 


Vendo sintetizador de voz Currah 
Mspeech para Spectrum. Incorpora 
equipo de amplificación del sonido 
del ordenador por el altavoz del 
televisor. Sólo un mes de uso. Con 
caja, libro instrucciones y cinta 
demostración. 7.500 pesetas. Víctor,' 
Tel.: (91)276 79 97. 


Su anuncio puede ir aquí. Escribanos a 
«El corcho». TODOSPECTRLM. 
Bravo Muriilo, 377.5.» A. 28020 
Madrid. 




















NOTA DE REDACCION 


Problemas con el montaje 
del lápiz óptico 

Varios lectores se quejan de que, 
en los programas de control deí 
montaje de lápiz óptico publicados 
en el número 7, todos los progra¬ 
mas en código máquina incluyen 
el resultado de su ensamblado en 
hexadecimal. excepto el programa 
4, ya que Gusánez tenía hambre y 
se comió un trozo de listado. 

Para mayor facilidad de aquellos 
que no disponen de un ensambla¬ 
dor y desean introducir el progra¬ 
ma, incluimos la lista de DATAs 
necesaria para «pokear» el progra¬ 
ma. La localidad de comienzo es 
65135, y se debe salvar el resultado 


como CODE después de introdu¬ 
cirlo. No olvidéis hacer OLEAR 
65134 antes de introducir el códi- 
g°- 


P 


Soy el autor del programa 


«IMPRESION DE LA PANTA¬ 


LLA» que publicasteis en la sec¬ 
ción de Preguntas y Respuestas del 
número de mayo. Por alguna ra¬ 
zón mi nombre no figura junto al 
programa y me gustaría saber por 
qué. ¿No creéis en la propiedad in¬ 
telectual? Esperando pronto tener 
noticias vuestras me despido con 
un saludo cordial. 

Rafael García 
Madrid 


R 


Esperamos sepas disculpar este 
error nuestro, responsable de que 
tu nombre no apareciera junto al 
programa que tan amablemente 
nos enviaste. Nosotros sí creemos 
en la propiedad intelectual, y prue¬ 
ba de ello es que esta sea la prime¬ 
ra vez que se nos queda en el tinte¬ 
ro el nombre de algún lector- 
colaborador. Repetimos nuestras 
disculpas y quedamos deseosos de 
que este lapsus no te haga perder la 
confianza en ésta tu revista y sigas 
mandándonos tus programas y co¬ 
municándonos tus sugerencias. 


La venganza de Gusánez 


10 DATA 33,7,0,34,235,255,46,3,34,237,255,62,127,219,254,15 
20 DATA 203,62,247,219,254,15,48,232,62,239,219,254,15,33,129,92 
30 DATA 54,2,203,198,62,223,219,254,15,56,2,203,134,6,10,17 
40 DATA 96.83,175,203,70,40,2,62,56,13,19,16,252,30,129,175 
50 DATA 6,10,203,70,32,2,62,56,13,19,16,252,62,255,50,247 
60 DATA 255,167,8,3,63.42,235,255,43,3,42,237,255,8,175,69 
70 DATA 4,7,246,1,16,251,79,125,47.230,7,164,71,121,40,3 
80 DATA 7,16,253,79,3,121,43,5,50,248,255,24,3,50,247,255 
90 DATA 3,229,58,248,255,79, 53,247,255,205,175,255,205,204,255,56 
100 DATA 18,58,248,255,47,79,58,247,255,205,175,255,205,204,255,63 
110 DATA 48, 1,60,225,194,111,254,43,11,125,60,190,79,188,202,111 
120 DATA 254,97,24,170,124,8,43,13,3,50,233,255,58,237,255,31 
130 DATA 50,237,255,24,142,8,50,236,255,58,235,255,167,40,7,31 
140 DATA 50,235,255,195,194,254,17,5,0,33,52,0,205,181,3,53 
150 DATA 248,255,79,53,247,255,33,129,92,203,70,40,1,47,87,3 
160 DATA 33,239,255,6,8,122,203,33,43,10,3,32,4,8,132,24 
170 DATA 2,8,166,119,35,16,233,33,0,89,54,7,44,32,251,33 
180 DATA 205,64,17,239,255,6,8,26,119,47,44,44,44,119,45,45 
190 DATA 45,36,19,16,242,33,3,89,17,239,255,26,6,8,7,43 
200 DATA 2,54.56,44,16,248,19,62,24,133,111,48,238,195,111,254 
210 DATA 33,19,89,87,203,33,56,1,175,6,8,7,54,0,48,2 
220 DATA 54,56,35,16,246,62,24,133,111,216,122,24,231,17,80,4 
230 DATA 62.127,219,254,230,64,40,7,27,122,179,32,242,55,731,6 
240 DATA 32,16,254,62,127,219,254,230,64,200,24,236 ", 


En el pasado número de junio, 
Gusánez volvió a cometer una de 
sus fechorías, con el resultado de 
que en el programa Ediset (pág. 
64) las líneas 1610/2005 se impri¬ 
mieron por duplicado y defectuo¬ 
samente. Afortunadamente aí ha¬ 
ber dos copias de cada línea ningu¬ 
na de ellas quedó sin imprimir co¬ 
rrectamente; bastará que eliminéis 
las seis que sobran para poder dis¬ 
frutar de este programa con nor¬ 
malidad. 

Esperamos sepáis disculpar es¬ 
tos pequeños despistes, ajenos a 
nuestra voluntad, y que, poce a 
poco, vamos subsanando. i 



por C. Tomás 


GUSANEZ 


ikfera sos fio» metí 

i Se te //a salido un Pelo/; 




V— ■ 
















































Ordenadores personales Hard y Soft, 
■ Cursos de Basic. 


Oficina RENOVACION EN MARCHA, 5. A. 

C/ Espronceda, 34, Z3003-MADRID 
Tfno, {91) 441 24 78 

REMSHOP 1 

Galillo, 4 20015 MADRID 
Tfno. £91) 445 28 08 

REMSHOP 2 

C/ Dr Gástelo, 14. 2Q00B MADRID 
Tfno {91) 2?4 98 43 

REMSHOP 3 

C/' Modesta Ufuente. 33. 26003 MADRID 
Tfno. (91) 233 33 19 

REMSHOP BARCELONA 

C/M un tañer 55 - 0604 BARCELONA 
Tino (93\ 253 26 16 

REMSHOP LAS PALMAS 

C/ General Mas de Gamindez 45, LAS PALMAS 
I Tfno. (928} 23 02 00 

REMSHOP BILBAO 

C/ General Concha. 12 - 46006 BILBAO 
Tfnp. (94) 444 63 68 

REMSHOP OVIEDO 

C-' Matemático Pedrayes, 6 - 33005 OVIEDO 
Tfno. (935) 25 25 95 


ELECTRONICA 


^SANDOVALsa 


DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELU-AIM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 

ELECTRONICA SANDOVAL, S. A. 

C/ SANDOVAL. 3, 4, 6. 28010-M ADR ID 
Teletonos. 445 75 58 - 445 76 00 • 445 18 70 
447 42 01 

C7 SANDOVAL, 4 y 6 
Centralita 445 18 33 (8 lineas) 


CAMAFEO, 


CASSETTES 

DE CALIDAD PROBADA 
PARA ORDENADORES 


C-5 1pías 
G-10 209 ptas 
C-15 219 ptas, 
0 - 2 0 222 pías 


1 393 pías. 
1 463 ptas 
1 533 ptas 
1 G02 ptas. 


á-5«S2 ptas 
3.762 pla£. 
3.342 pías. 
d.12? ptas. 


Libre de gastos de envío contra reembolso correos 

CAMAFEO mí. Dep k 03 

José Lázaro Gaicilano, 1, 26036 Madrid. 


ts orre 

t\ uii j 

• ORDENADORES PERSONALES 

• GESTION 

• APLICACIONES ARQUITECTURA 

• GARANTIA OFICIAL 

• FACILIDADES DE PAGO 

• ENVIOS A PROVINCIAS 

Barquillo 15 • Tiro.: 232 57 37 - 23004 MADRID 


CURSO DE CONTABILIDAD 
PARA P y M EMPRESAS 


EN ZX SPECTRUM i 


- Libros Oficiales Contabilidad 

- Diarios, Inventarios, Balances, etc. 

- Plan General Contable 
CENTRO DE ESTUDIOS; SIMA AS 
c/. Desengaño, 12 - 3."-3 28004 Madrid 

Tells : 221 31 49 - 221 38 35 


ANUNCIESE 

por 

MODULOS 


MADRID 

( 91)7339662 

BARCELONA 

( 93)3014700 
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- En el artículo «Un 
poco de código máqui¬ 
na» del número 8 hacen 
referencia a un progra¬ 
ma que no aparece. ¿Se 
trata de algún acertijo? 


150 DATA 
160 DATA 
U" DATA 
l&O DATA 
190 DATA 
2O0 DAti 
210 DATA 
220 DATA 
230 DATA 
2*0 DATA 
250 DATA 


""Íj¡D5CCFOI E521095&" 
' '_'25 D5C CE 622 6300 7" 
"E1E 322SD5CCFÜ1E5" 
' AF ■000523861OFCFE " 
"023013E1E1233600" 
'' 233*00 233601 2336*' 
"OO2336Ó0182CD113" 
'' 2 A65 SCEBOl 05 OOE D 
" B0EB22655C£FC0C 1 ■’ 
'0238EFElEÓA103C0" 
"04 C10 2E030C 01423" 


260 tiATA "471CEFEFE13SE1CD' 1 
230 DATA "6C2&E1225D5CC9' 1 

300 CL5 

305 PF: 1H T "'Dn-t. Jntr aduzca. el 
v J *l 

310 ÍNFUT ■' D*r.o¡ "t . 

320 3_ET -Fác t=0: F: AMDOHI ZE USR A 
a: FRINT "’í fact: EQ TO 30 

O 

330 REM c*j*i*******«1l**c*« 


Pedro Ridrueles 
Cáceres 


0® 


iin duda la culpa es 
de Gusánez. El progra¬ 
ma «oculto» a que ha¬ 
cíamos referencia, es el 
siguiente: 


i REM t**************** 
(t * 

* FACTORIALES * 

* * 
■tiíítítltttttutv 

5 REM Ubicación rutina 


ACLARACION 

Hemos recibido diver¬ 
sas llamadas acerca del 
articulo «Amplía tu me¬ 
moria... a 48 K», «acu¬ 
sándonos» de estar un 
poco confuso. 

El siguiente esquema 
ilustra los distintos com¬ 
ponentes y circuitos ne¬ 
cesarios, ¿aclarado? 


Asimismo, hemos te¬ 
nido noticias de la exis¬ 
tencia de una nueva ver¬ 
sión del Spectrum: issue 
4. Se trata de i modelo 
que viene incorporado 
en el Spectrum Plus, al 
parecer también inclui¬ 
do en algunos de los mo¬ 
delos normales. 


María del Carmen Ríos, Olga 
Martorell. Pe layo, 12. 

TeL (93) 318 02 89. 

OSOOI Barcelona. 

Depósito legaL M-29041-1984 
Distribuye S.G.E.L. 

Avda. Valddaparra, s/n. 

A tcobendas-Madrid, 
Fotomecánica: Karmat, C/ 
Pantoja, 10. Madrid. 
Fotocom posición: Aftecomp. 
Imprime: Héroes, C/Torre la ra, 

8, Madrid, 

Distribuidor en VENEZUELA* 

SIPA JV1 S.A. 

A Vil REPUBLICA DOMINICANA, 
EDIL EELTREC - OFICINA hB 
BOLEITA M ÍK 
CARACASíVENEZUELA) 

Esta publicación es miembro de 
Ea Asociación d^cvistas de 
Información (Mi asociada 
a h Federación Internacional 
de Prensa Periódica, IT PP. 

Si SCRNVIÜM ™ ' 

Rogamos dirijan loda la 
correspotidenc ia reí aci onada co n 
suscripciones a: 

TODOS RECTRUM 
EDJSA: TcJ. 4t5 97 12 
C López de Hoyos, ! 41 -5. a 
28002 MADRID 
{Para lodos I os pagos reseña r 
solamente TODOSPECTRU M) 

Para 3a compra de eje ffip ¡ares 
i atrasados diríjanse a la propia 
editorial 

TODOSPECTRUM 
C/ Bravo Morillo. 377-5." A 
Tel. 733 74 1J-28020 MADRID 


Si deseas colaborar en TODOS PEC- 
TRL’M remite tus artículos o progra¬ 
mas a Bravo M uriMo 377. 5* A, 28020 
Madrid. Los- programas deberán estar 
grabados en cassette y los artículos 
mecanografiados. 

A efectos de remuneradón + se anali¬ 
za cada colaboración aisladamente, es¬ 
tudiando su complejidad y en t i dad. 


iú INfUT "Direceiun de memür 1 * 
par-^i ubica-cion7 tLongitud ruti 
n¿i=143 b /t b4 í 1 

20 CLEAP : LET «-PEE* 23 

77-0 + :'36*FE£l 33731+21 LET 

30 PRÍNT AT 20,3; FLASH L;"Ubi 
cando ccdigo maquina. ESPERE 1 " 

?T REM Lectura datos en he.¡ade 
; . Ubicación a partir dt la 

l ocal liaci Qñ de memoria "a'', 

40 FDF: n —1 TG IR: READ = * 

50 FOR -=1 T Q LEN £1-1 STEP 2 
60 LET h-COPÉ z*U >-48-74 (COOE 
üftfí 64) 

70 LET 1 = E0DE = *(*■•■ 1.)-4B-7 * <CD 
DE z* í-f + 1 ) '-64 » 

BO PGKE i.-h*16+1): LET a=a+l 
*0 NÉXT fs N&XT n 

95 REM Rutina codigo mequi 
ng. Carga he¡-:adec i mal . 

100 DATA "3J045B3Ó66233661 1 ' 

110 DATA "233663273634 2336'“ 
í 20 DATA " CE27-767027T62E2 A ” 
r.'s.l DATA ,, 5D5tE52l045BZ25D" 

1*0 DATA 11 5CEDB2283006E 122" 


PUENTES 
ISSUE-TB 



i Y para el caluroso agosto... 

Gusánez está ya preparado para tomarse vacaciones en agosto, pero an- 
! tes nos ha dejado muchos temas interesantes: 

Master file, conocida como «la mejor» base de datos. 

Lápiz óptico. Analizamos el lápiz de DK’tronic. 

Inteligencia artificial. ¿Un nuevo tema o un viejo reto? 

Gusánez en la playa. Un original y divertido programa en el que nuestra 
mascota es la protagonista. 

















































La versión española de Popular Computing 


ORDENADOR 

- POPULAR 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 



Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 

ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 


Cómprela en su kiosco habitual o solicítela a: 


ORDENADOR 

- POPULAR. 


Bmw Murfflo, 377 
Tel. 7339662 
2S020-MADRID 



























EL REGALO FIN DE 


LAUDE 


Ha sido un curso duro para ol Homo Sapiens más pequeño Y 1* Garantía Investrónica. Exíjala al comprarlo ya que 

de la casa. le protege de cualquier anomalía o reparación, 


Levantarse antes que el sol. Acostarse muy tarde 
preparando los Trabajos. Y durante el día, una jornada plena 
de esfuerzo físico y dedicación intelectual. 

Abora que el curso araba, su hijo merece un premio, y una 
gran ayuda: un Spectrum. 


Invierta en el futuro de su hip, Prémiele con un Spectrum. 
Quien bien acaba el curso, bien empieza el siguiente, 

SPECTRUM. EL ORDENADOR CLASICO. 


El microordenador más popular del mundo, 'Tres de cada 
cuatro que se compran son Spectrum. 

Con la mayor cantidad de software disponible, Más de 
cinco mil títulos: juegos, programas de educación y 
utilidades,,. 


* DÍTR&UOCfi 



Tomás Bretón, 60 TW m) -167 92 10 Tele* 2339099 1YCO E 2SM5 Mednd 
Gamp, BQ TeiL (93) 2 L L 26 66-211 27 E4 09022 Barcelona 








